AD  A  0  9  4  3  0  0 
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This  report  presents-thefinal  recommendations  and  conclu¬ 
sions,  with  supporting  dataT^reStdtijigfrom the  contract  option 
phase  of  contract  DAAK  40-78-C-0290?‘'i^describes  the  manufac¬ 
turing  technology  and  test  system  that  will  enable  detection,  identi¬ 
fication,  and  location  of  digital  faults  in  the  advanced  missile  elec¬ 
tronic  systems  that  will  be  used  in  the  1980*3.  Emphasis  is  placed 
on  the  fault  diagnosis  of  large  printed  circuit  boards  containing 
complex  hybrid  digital  microelectronic  circuits.  The  Hughes- 
enhanced,  state-of-the-art,  DTS-70  automatic  test  system  installed 
at  Redstone  Arsenal  as  a  result  of  this  contract  provides  the  cap¬ 
ability  to  isolate  digital  faults  in  such  circuit  boards  to  the  compon¬ 
ent  level  with  a  test  comprehensiveness  of  90%  or  better. 


The  contract  option  phase  of  this  project  involved  the  purchase 
and  installation  of  the  DTS-70  system,  the  selection  of  the  PN- 
1635972  and  the  PN-1646178  D/PCBs  fur  testing,  the  development 
of  generalized  test  software  and  the  development  of  the  specific  hard¬ 
ware  and  software  needed  to  test  these  worst-case  boards.  It  also 
included  a  successful  demonstration  of  the  project’s  results  for  in¬ 
terested  Department  of  Defense  and  industry  personnel. 

The  report  concludes  with  recommendations  for  the  improvement 
of  the  DTS-70  System  to  increase  its  utility,  with  recommendations 
for  improving  the  testability  of  digital  printed  circuit  boards,  and 
with  recommendations  for  future  digital  fault  isolation  studies. 
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SECTION  A.  1 

SIGNATURE  ANALYSIS  SOFTWARE 

1.  Signal  Transfer  File  Testing .  A-l 

2.  SAFILS  Sample  Listing .  A-2 

3.  SACMPR  Flow  Chart .  A-3 

4.  SACMPR  Listing . . .  A-4 

5.  SACMPR  8080  A/B  Microprocessor  Data  Table  Format .  A-26 

6.  Sample  Signature  File,  8080  A/B  Microprocessor 

Using  NOOP .  A-2 7 


APPENDIX  A  —  Software 

Section  A.  1  —  Signature  Analysis  Software 


A.  1. 1  SIGNAL  TRANSFER  FILE  TESTING 

.* 

:*  RUN  THE  INITIALIZING  PROGRAM. . . 

:* 

:  RU,  INIT 

.* 

:*  ASSIGN  THE  5004A  S.  A.  AN  LU  IN  SYSTEM. . . 
:* 

:  SL,  35, 117 
•* 

:*  RUN  SIGNATURE  ANALYZER  PROGRAM. . . 

:* 

:  RU,  SCAMPR 
:* 

:*  EXIT 

:  TR 


A-l 


APPENDIX  A  —  Software 

Section  A.  1  —  Signature  Analysis  Software 


A.  1.2  SA  FILS  SAMPLE  LISTING 


FILE  NAME 

CR 

DESCRIPTION  OF  CONTENTS 

(COL  1-6) 

(COL  7-8) 

(COL  9-58) 

6  chars 

2  chars 

50  chars 

SIG972 

19 

SIGNATTTRE  ANALYSIS  OF  ALL  ADDRESS&DATA  927 

BOARD 

CPU972 

19 

SIGNATURE  ANALYSIS  OF  8080A  CPU  CHIP  972  BOARD 

END  OF  FILE 

NOTE:  The  message  "END  OF  FILE"  must  be  placed  in  the  data  file  starting 
in  the  5th  column  to  show  the  actual  limit  of  the  size  of  the  file. 


APPENDIX  A  -  Software 

Section  A.  1  -  Signature  Analysis  Software 

A.  1.4  -  SACMPR  LISTINGS 

SACMPR  T*=00004  IS  ON  CR0001S  USING  00148  BLKS  R*0000 
0001  FTN4,L 

0002  cccccccccccccccccccccccccccccc cccccccccccccccccccccccccccccccccccccccccc 

0003  C 


PROGRAM: 


SttCMPR 


PURPOSE:  TO  DIRECT  THE  TEST  OPERATOR  IN  THE  SIGNATURE  ANALYSIS 

OF  A  DIGITAL  PCB. 


PROGRAMMER: 


DAVID  S.  WAGNER 
7030  E  POTAWATAMI 
TUCSON,  A2  85715 
602-296-2760 


BLDG.  688/T-125 
HUGHES/ (213)  802-4190 
FULLERTON,  CA  92634 


DATE:  02  -  JUL  -  80 

DATA  FILERS):  SAFILS::-18  contains  list  of  available  file 
names  and  description  of  contents 
User  is  queried  to  enter  a  data  file  name  from 
this  list 
SUBROUTINES  USED: 


1  .  INSHA 

2.  GTPIN 

3.  PRMPT 

4.  RBYTE 

5.  CHECK 

6.  BKCHK 

7.  NOTFY 

8.  BKTRC 

9.  ABORT 

10.  CNVRT 

1 1 .  RCVRT 

12.  NUM 

13.  UNPAK 

14.  ZEROR 

15.  LENTH 

16.  PACK 

17.  DCMNT 

18.  STUCK 


TO  INITIALIZE  TABLE  FOR  PROGRAM  USE 
TO  GET  NEXT  PIN  TO  PBOBE  FROM  TABLE 
TO  PROMTP  TEST  OPERATOR  TO  PROSE  PIN 
TO  GET  SIGNATURE  OF  PIN  PROBED 
TO  COMPARE  SIGNATURE  WITH  CORRECT  ONE 
CHECKS  VALIDITY  OF  PREVIOUS  MODE 
NOTIFS  THE  OPERATOR  OF  A  FAULT  AND  LOCATION 
BACKTRACE  TO  LAST  GOOD  PIN  LOCATION 
ERROR  EXIT  FROM  THE  PROGRAM 

ROUTINE  TO  CONVERT  PACKED  STRING  TO  UNPACKED 
ROUTINE  TO  CONVERT  UNPACKED  STRING  TO  PACKED 
FUNCTION  TO  CONVERT  HOLLERITH  TO  INTEGER 
ROUTINE  TO  UNPACK  AN  A2  INTO  2  A1 'S 
ROUTINE  TO  BLANK  OUT  ARRAYS 
FUNCTION  TO  FIND  NO.  OF  CHARACTERS  IN  STRING 
ROUTINE  TO  PACK  2  A1 'S  INTO  AN  A2 
TO  DOCUMENT  TEST  RESULTS 
TO  CHECK  IF  SAG  OR  SA1  FAULT 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C 

C  HIERARCHY  OF  SUBROUTINES  AND  FUNCTIONS  USED  IN  SACMPR 


INSHA 


OPEN 

READF 

CNVRT 


NUM 

UNPAK 


GTPIN 


uMiWIftAfuhu  WiikWWHiWliW  kw1|N!'!1i*Mki  ■“WWiI  I 


*  i 


\  oH'.l  > 
<  5h  i  :• 


■;  CCCCCl  CCC  C  C  Cl  CCC  CC c  cc  ccc  ccccccc  cccccccccccccccccccccccccccccccccccccc 


0059 

c 

PRNPT 

0060 

C 

RBVTE 

0061 

C 

CHECK 

0062 

C 

0063 

C 

0064 

c 

006-5 

c 

6"CHk 

0066 

r 

NOTFV 

0067 

c 

STUCK 

0  068 

C 

BkTRC 

0  069 

c 

ABORT 

3070 

c 

DCMNT 

0  G?1 

0  0  72 

c 

c 

•j  0  r  3 

c 

0074 

p 

FAULT  FLAGGING 

0075 

c 

0  076 

c 

0  077 

f 

0  —  NO  FAULT 

y  /  8 

c 

l  —  h  NODE  Fhi 

u  o  7  9 

r 

2  —  ACTUAL .  Pi 

CO  o*0 

c 

3  —  A  Si UCK  A 

:  00 1 

"*  i"i  / 

L- 

4  —  A  STUCK  h 

j  v  3 

c 

*  $$4 

i"  »“• 

»:  •;  c  CCC  CC  CCC  C  C  CC  i 

CO  95 

0096 

c 

0  097 

c 

0098 

c 

ARRAYS  used  in 

ii  089 

c 

3090 

c 

ARRAY  ’;200.  10 

0091 

L 

CHARS  <23 

0092 

c 

CMPaR  < 2  j 

0093 

1“ 

DUMMY  v  3  ) 

0094 

i_. 

FILCHCk 35  > 

0  095 

c 

GNB  <  2  > 

3096 

c 

HOLD  <  4  ,• 

00  57 

}_. 

J£UF  ■:  4  ; 

0099 

L 

1  DCS  <1443 

0u99 

c 

INSUF  <4003 

0t  00 

L- 

IN TXT  ■  1 0  > 

01  0i 

c 

IPEUF  <10> 

01  02 

r 

IRBUF  %  2  > 

01  03 

c 

IPRMPTf 12 > 

01  04 

c 

LINE  < 26  ) 

0 1  05 

L 

NAME  <  3  > 

0 1  06 

c 

POSCHRC 1 6 ) 

0 1  07 

c 

TABLE  (.200,10) 

01  09 

c 

TEXT  < 1 3  ) 

01  05 

c 

TMP  f 3  > 

0110 

c 

VCC  <  2  ) 

01  1  1 

c 

0 11 2 

c 

01  1  ~ 

c 

VARIABLES  USED 

0?  14 

c 

Oil  3 

c 

COUNT 

0  1  :  6 

c 

FAULTS 

01  1  7 

•-> 

GOOD 

31  i  9 

c 

I 

kCVRT 


LEMTH 

FhCk 


nrrav  used  as  temporary  hold  for  blanking  purposes 

ff'ray  used  in  unpacking  of  input  data 

:Jsed  m  CoMPARison  of  read  signal  and  valid  signal 
Array  used  to  hold  node  nans  currently  under  test. 

Array  used  to  hold  data  file  names  and  descr iotioni 

Holds  the  Ground  Characteristic  Signature 
Array  used  to  hold  probed  signature  in  4ft 1  format 
Temporary  storage  array 

Array  *or  Data  Control  Block  for  input  from  file 
Storage  array  of  input  data  <90  characters  packed) 
Packed  input  text  array  for  reading  from  4£;IGNA 
Temp-,  version  of  above  <IHTXT> 

Used  for  reading  from  Signature  Analyzer 
Holds  a  Logical  Unit  No.  prompt  message 
An  unpacked  array  of  input  text  from  &SIGHA 
nrray  to  hold  the  file  name  <&SIGNA> 

Array  holding  IS  possible  signature  values 

The  data  table  holding  nodes,  signatures,  pointers 

Packed  array  of  inp*ut  text  from  &SIGNA 

Temporary  array  for  holding  of  re-probe  node  name 

holds  the  VCC  Character istic  Signature 


a.  flag  used  to  oneck  tor  necessity  of  a  re-probe 
a  variable  jsed  to  noid  count  of  faults  on  board 
Logical  variable  to  flag  good  or  bad  signature 


Inde,-.  for 


and  all  DO  loops 


LUCRT 

LU'SA 


0,121 

C 

HUMREC 

0122 

C 

PRBCNT 

0123 

C 

REPROB 

0124 

C 

ROW 

0125 

C 

SUM 

0126 

c 

TMPROW 

012? 

c 

0128 

c 

0129 

CCCCCCCCCCC CCCCClCCCCCi 

0 1  3  0 

c 

0131 

c 

0132 

c 

0133 

c 

GLOBAL  INITIALIZAT 

0134 

c 

0135 

c 

0 1  3  * 

PROGRAM  SaCMP 

0  ?  37 

IMPLICIT  INTEGER 

01  38 

DIMENSION  TABLE  ■ 

0l  39 

DIMENSION  PI NAME 

0 1  4  0 

DIMENSION  I6UF  c 

0141 

DIMENSION  IN TXT  - 

01  42 

DIMENSION  TAPRAY 

0143 

DIMENSION  FILCHC 

0144 

LOGICAL  GOOD,  VA 

0145 

PRBCNT  -  0 

01  46 

ROW  =  1 

0  I  4  7 

LUCRT  =  1 

0148 

faults  =  o 

0149 

HUMREC  =  0 

015  0 

LUSA  =35 

0 1  5 1 

BELL  =  340 0B 

0152 

GOOD  =  .FALSE. 

0153 

VrtLU  =  .FALSE. 

01  34 

REPPOB  =  .FALSE, 

0 1  55 

c 

01  56 

c 

0157 

cc 

0158 

cc 

C  C  C  C  C  C  C  L  C  C  C  C  C  C  C  C  C  i.  c  c 

0159 

cc 

0 1  6  0 

c 

0161 

c 

0162 

cc 

0163 

CCC  CHECK  t-OR  HP  IB  LU 

0164 

CC 

0165 

c 

0166 

CALL  EXEC  C13,  L 

0167 

ISCD  =  0 

0 1  68 

I DVR  =  0 

01  69 

I DUN  =  0 

0170 

c 

0171 

cc 

0172 

CCC  IF  SELECT  CODE  IS 

0173 

CC 

01  74 

C 

0175 

IF  <  I AND  >.'IEGT4, 

0176 

c 

0177 

CC 

01  78 

CCC  DRIVER  MUST  BE  DVR 

Logical  unit  number  for  the  CRT 
Logical  unit  number  for  the  Signature  Analyzer 
Humber  of  records  in  the  Data  file  of  Nodes 
Counts  the  number  of  calls  to  GTPIH  <#  of  probes) 
Logical  variable  set  TRUE  if  reprobe  is  needed 
Pointer  into  the  current  row  in  the  TABLE 
The  sum  total  of  faults  on  the  board 
A  temporary  holding  of  the  ROW  pointer 


'  4 


T 


ii 


0 1  79 

CC 

0180 

0 

0181 

0132 

IF  < IAND  < IEQT5/256,  77B)  .NE.  37B)  IDVR  =  1 

0183 

c 

If 

CC 

85 

CCC  THE  LU  MUST  BE 

UP  80  CHECK  IT ...  . 

..138 

CC 

0107 

c 

0 1  83 

IF  < IaND  <18 

TAT,  1 00 00 0B  )  .NE.  0)  I OWN  =  1 

0139 

c 

0190 

cc 

0191 

CCC  CHECK  for  ALL 

OF  THE  ABOVE  TESTS'  SUCCESS.  .  .  (  AND  HOPE!  ) 

0192 

CC 

0193 

L 

0194 

IF  I3CD.EQ. 

0  .AND.  I DVR, EG. 0  .AND.  IDWN.EG.0)  GO  TO  9 

0195 

c 

0196 

f  c 

0197 

CCC  IF  WE  GET  HERE 

,  WE  UNFORTUNATELY  HAVE  AN  ERROR  < OR  TWO.,.) 

0198 

CC 

0  i  99 

c 

02  00 

IF  < IS CD  . EG 

.  t  .)  WRITE  <  1  ,  1  00  01  )6ELL,  BELL,  BELL 

02  01 

IF  { ISCD  .EG 

.  0  .AND.  IDVR  .EG.  1  HJRITE  <  1  ,  1  0003 )BELL, BELL, BELL 

02  02 

IF  >.  IDWH  .EG 

.  1)  WRITE  < 1 , 1 0003>BELL,  BELL,  BELL 

02  03 

STOP 

c 

CC 

CCC  CrtL  OJLaTE  THE  HP-IB  INTERFACE  lU  (.5931  OA  CARD  IN  THE  COMPUTER) 

cc 

L 

9  LUEb  ■-  LUSh  -  IaND  CiSTAT,  77B' 


CLC  SET  THE  REMOTE  ENABLE  LINE  VIh  AN  EXEC  CALL  < VERY  IMPORTANT) 

c  c 


Call  exec  (3,  i  c o ob  +  lusa  •> 


CCC  ANl>  Huw  EVER. THING  SHOULD  BE  READY  TO  GO...  (LtT'S  HOPE!!!) 

r  c 

c 

c 

C C C C C C C C C C C C C C C C  C t  C C C C  C  L  C  C L  c c  c c c L  c c c c c c c ■:  c c c  c c c c c C- c c c  c c c c c c c c  c c c  cccccccc c C- 

c 

c 

cc 

CCC 

CCCC  Initialize  the  data  1 36is  of  known  good  signatures  by  reading  them  in 
CCC  from  the  S-.^IGNA  file,.. 


call  insha  <table  int;-:-.,  idcb,  name,  text,  line,  numr.ec,  filcho 


CCCC  Find  out  the  next  pm  that  should  be  probed  and  get  the  name  of  it 
CCC 


A-7 


-  ,i 


l! 

SSf-  * 

be  s 

0239 

i  0 

fe,  - 
0  { 

024  0 

5  ■ 

0241 

1 1 

0242 

C 

I_1 

0243 

CC 

S:  ! 

0244 

CCC 

1  ' 

0245 

CCCC 

1  , 

0246 

CCC 

f  ; 

0247 

CC 

e» 

& 

0248 

C 

1, 

0249 

p 

025  0 

s 

0251 

c 

I  i 


ft  j  I 


ft. 


P7 


ft- 

I  1 


J 


I 


i  < 


■y 


0252 
0253 
0254 
0255 
0256 
025? 
0258 
0259 
026  0 
0261 
0262 
0263 
0264 
0265 

02t.6 


026? 


CC 

CCC 

CCCC 

CCC 

CC 


c 


1 ' 


i.i268 

0269 
0'2  70 
0271 
0272 
0273 
02  74 
027c' 
0276 
0277 
0278 
0279 
028  0 
0281 
0282 
0283 
0284 
0285 
0286 
028? 


i 


CONTINUE 

CALL  GTPIN  < TABLE,  ROW,  COLUMN,  DUMMY) 
PRBCHT  =  PRBCNT  +  1 


If  it's  pin  name  is  STOP  then  we  are  all  done  with  tne  whole  table 


IF  <  <  DUMMY  Cl)  .  EO  .  2HST  >  .  AND .  c  DUMMY  t  2  >  ,  EQ .  2H0P  )  jQO  TO  6 0 
COUNT  =  0 


Pr  ompt,  the  operator  to  prompt  it  t  the  pin  name; 


CONTINUE 

CALL  PRMPT  <  DUMMY,  REPROB) 


DO  16  I  =  1,3 

TMP  < I  )  =  DUMMY  < I ) 


16 

C 

CC 

CCC 

CCCC 

cc  c 

CC 

c 

c 


CONTINUE 


Now  get  the  actual  signature  probed  from  the  HP-IB  interface  and  the 
Signature  analyzer 


CALL  IHSIG  i HOLD; 

IF  7  HOLD  1  ;  .£0.,  2HhB  )  GO  TO  60 
CALL  KBYTE  CLUSA,  HOLD.  IPBUF) 


CL 

CCC 

CCCC 

ccc 

CC 

c 


Now  check  to  see  if  :t  is  a  good  signature  or  not  <  GOOD  will  hold  thi= 
answer  either  .TRUE,  or  FALSE. 


CALL  CHECK  \ ThBLE . PuW , GOuL’ . HOLD , CMP AR , CHARS , VCC , GND , PkBl NT ) 
WRITE  <  1.  1  0004)  t  HOLD  I  =  1.  4  ) 


C 

CC 

CCC 

CCCC 

CCC 

CC 


If  it  is  bad  go  to  re-probe  section  of  code  7  GO  TO  40) 


J- 

0288 

c 

0239 

IF  7.  NOT.  •'GOOD;)  GO  TO 

6T: 

029  0 

C 

£i 

029 1 

CC 

pi 

0292 

CCC 

p 

0293 

CCCC  If  it  is  good  with  iruti 

R 

0294 

CCC  following  lines  of  code. 

i 

0295 

CC 

& 

i 

0296 

c 

0297 

IF  -'.ThBLE  <ROW,  10  J 

0298 

C 

A-8 


£ 


0299 

CC 

0300 

CCC 

Now  flag  this  node  as  a  good  node 

0301 

CC 

0302 

03  03 

TABLE  CROW,  6)  =  1 

03  04 

c 

0305 

CC 

0306 

CCC 

get  the  good  goto  pointer 

030? 

CC 

03  08 

c 

03  09 

ROW  =  TABLE  *  ROW,  B) 

031  0 

c 

031  1 

CC 

0312 

CCC 

We  don't  want  to  reprobe 

03 1  3 

CC 

0314 

c 

0315 

REPROB  =  .FALSE. 

0316 

c 

0317 

c  c 

0318 

CCC 

loop  back  and  get  the  next  pin  that  we  have  to  pr 

obe 

0319 

CC 

032  0 

c 

032 1 

GO  TO  1 0 

0  322 

2  0 

C0NTINUE 

0323 

c 

0324 

CC 

0325 

CCC 

u326 

CC  Cl 

:  Now  see  if  node  level  Below  current  was  bad  by 

checking  previous 

0327 

CCC 

table  entry 

0323 

CC 

m3  29 

e 

0330 

CALL  BKCHK  TABLE,  ROW,  VALU,  PI  NAME) 

0331 

IF  VALU  ’>  GO  TO  30 

o  o  o  2 

c 

0333 

CC 

0334 

ccc. 

0335 

CCC! 

C  Notify  them  of  the  faoit  and  go  back  through  the 

TftBLE  to  see  wheri 

0336 

ccc 

the  next  probe  should  be 

0  o  3  r 

CC 

0338 

c 

0339 

25 

CONTINUE 

0340 

CALL  NOTF  l  ■  PIMhHE  > 

0341 

WRITE  <  1  ,  100  05  -BELL 

0342 

FAULTS  =  FAULTS  +  1 

0343 

c 

0344 

CC 

0345 

ccc 

Just  incremented  the  counter  of  faults,  now  flag  the  fault  in  the 

0346 

CCC'i 

C  TABLE  in  one  of  two  topes:  it  is  the  furthest 

in- level  node,  or 

034? 

ccc 

it  is  an  ordinary  fault  at  any  other  node: 

0348 

CC 

0349 

c 

0350 

IF  <1  ROW  . EQ .  0 >  CO  TO  2S 

0351 

c 

0352 

CC 

0353 

ccc 

we  get  here  for  a  normal  node  fault  <not  irmermo 

st  ) 

0354 

CC 

0355 

c 

0356 

c 

035? 

CC 

0358 

ccc 

find  out  where  last  node  probed  was  and  get  it  s 

row  number 

0359 

CC 

03  6  u 

C 

0361 

ROW  =  TABLE  (ROW,  10) 

0362 

c 

0363 

CC 

0364 

ccc 

flag  an  actual  fault  here 

0365 

CC 

0366 

c 

0367 

TABLE  (ROW,  7)  =  2 

0368 

CrtLL  STUCK  (ROW,  TMPCMP,  VCC ,  GND,  TABLE; 

0369 

GO  TO  29 

0370 

c 

0371 

CC 

0372 

ccc 

Me  get  here  for  a  fault  at  the  innermost  node  level 

0373 

CC 

0374 

c 

0375 

•y  g 

ROW  =  TMPROW 

0  376 

TABLE  < ROW ,  7>  =  2 

0377 

CALL  STUCK  <  ROW ,  CMPAR,  VCC,  GMD,  TABLE) 

0378 

c 

0379 

CC 

0380 

CC  li¬ 

now  BacKTRaCe  through  the  TABLE  to  find  next  node  to  probe 

0381 

ce 

0382 

c 

u  383 

29 

call  bktrc  < table,  row) 

0784 

GO  TO  1 u 

0385 

3  0 

CONTINUE 

0386 

C 

0387 

CC 

0388 

cc  ii- 

NOTE:  We  should  not  ever  get  here  as  this  section  deals  with  tne 

0  389 

cc  CC 

case  where  a  node  is  good  with  a  previous  node  being 

bad ,  So 

039  0 

CCC 

flag  an  error  and  abort, 

0391 

CC 

0392 

c 

0393 

CALL  ABORT  (TABLE,  ROW) 

0394 

CALL  OUTPT  •.  TABLE,  NUMREC  » 

0395 

STOP 

0396 

4  0 

CONTINUE 

0397 

C 

0398 

cc 

0399 

C  c  li¬ 

04  0  0 

ce  CC 

Here  after  a  bad  probe,  so  probe  again,  and  then  if  is  still  bad 

04  01 

ccc 

then  follow  bad-goto  path  in  list  table,  else  was  a  misprobe,.. 

04  02 

cc 

04  03 

c 

04  04 

COUNT  =  COUNT  +  1 

04  05 

IF  < COUNT  .EG.  l;  GO  TO  50 

04  06 

c 

04  07 

cc 

04  08 

ccc 

notify  them  we  are  entering  back check .. . 

04  09 

cc 

0410 

c 

04 1  i 

WRITE  <1.  1  0006  .iBELL,  BELL 

04  1 2 

c 

04 1 .3 

cc 

04  1  4 

ccc 

save  ROW  in  case  new  row  is  0 

04  1  o 

cc 

0416 

c 

0417 

TMPROW  =  POW 

0418 

c 

A-10 

0419 

CC 

042  0 

CCC 

get  the  new  row  pointer  from  the  table 

0421 

CC 

0422 

c 

0423 

ROW  =  TABLE  CROW,  9) 

0424 

c 

0425 

CC 

0426 

CCC 

If  ROW  is  zero  then  this  none  is  the  iault  as  we  cannot  backtrace 

0427 

CC 

f urther . 

0428 

c 

0429 

IF  <  ROW  ,  HE .  O  ')  GO  TO  46 

043  0 

c 

0431 

CC 

0432 

CCC 

get  here  if  this  node  is  the  fault,  so  store  the  node  name  -and  go 

0433 

CC 

to  notification  section  of  the  program 

0434 

c 

0435 

DO  45  J  =  1 .  3 

0436 

PINANE  to.'1  =  TABLE  <  TMPROW,  J ) 

0437 

45 

CONTI HUE 

0438 

GO  TO  25 

0439 

c 

044  0 

CC 

5441 

CCC 

save  this  bad  node's  signature  case  the  next  node  level  probe  is 

0442 

good,  we  nave  to  be  able  to  compare  it  with  VC-C  and  GND  characteri 

•0443 

c 

si qnatures 

0444 

46 

DO  471=1,2 

04  45 

"MPCMP  <  I  >  =  CMPAR  <•  I  ) 

■.>446 

47 

CONTINUE 

0447 

GO  T 0  1 0 

0  4  4  y 

c 

0449 

CC 

0450 

CCC 

get  node  name  back  in  preparation  for  a  Re-Probe 

u45 1 

CC 

0452 

c 

,j453 

5  0 

DO  55  I  =  1,  3 

04  54 

DUMMY  <  I  >  =  T HP  •;  I  •• 

0455 

5 

CONTINUE 

u456 

REPPOB  =  .TRUE. 

0457 

GO  TO  15 

0459 

6  0 

CONTINUE 

0459  C 
046  0  CC 

0461  ClC  We  get  here  if  we  made  it  thru  the  table,  so  now  do  a  checksum  on 


«„»  TZ‘  ci 

CCCC 

the  bad 

table  to 

see  if  board  tor  chip)  fails  the  go/nogo 

04  63 

CCC 

0464 

CC 

0465 

C 

0466 

IF  < FAULTS  .EG. 

j }  GO  TO  80 

U  4  6  7 

WRITE 

< LUCRT, 

1 0007 )F AULTS 

04  6' 8 

CALL 

DCMNT  £ TABlE,  riUflREC,  TAR RhV  * 

0469 

STOP 

04  70 

8  0 

WRITE  <  LUCRT ,  1  000S.)B£lL,  BfcLL,  uEll 

0471 

STOP 

0472 

1  0  001 

FORMAT <  ’* 

Mi  LU  #  GIVEN  IS  NOT  DEFINED" . 3A 1 > 

0473 

1  0002 

FORMAT< " 

M!  LU  #  U I VEN  IS  NOT  HP  -  IB'\3hO 

0474 

1  0  003 

FORMATt " 

LU  #  GIVEN  IS  DOWN"  ,3An 

0475 

1  0  004 

FORMAT-:  11 

SIG.  IS 

" .  r< . 4A i  > 

0476 

1  0  0  05 

FORMAT< " 

t  K  \  EX  1 11  Hu  Back-,  htd-  ✓  '  )  "  ,  A 1  .) 

0477 

1  0  006 

FORMAT< " 

>>>  ENTERING  BackCHech  t<"",2A1> 

0478 

1  0007 

FORMATS " 

BOARD  Fails...  THERE  WERE  ‘-.is,"  faults-  1 

0479 

i  0008 

0430 

048 1 

CCCCC 

0482 

0483 

C 

0434 

cc 

0485 

CCC 

0488 

cc 

0487 

c 

0483 

0489 

049  0 

04  91 

c 

0492 

c  c 

04  93 

c  c  c 

-!484 

cc 

0495 

c 

■j  4  9  8 

0497 

1  0 

049S 

0499 

05  00 

CCCCC 

0  5  0 1 

■35  03 

cc 

05  04 

CCC 

'5  05 

cc  CC 

i.i?  0  8 

cc  t 

SUBROUTINE  ABORT  < TABLE,  ROW > 

C 

cc 

CCC  THIS  SUBROUTINE  IS  AN  ERROR  REPORTING  EXIT  FROM  THE  PROGRAM 


IMPLICIT  INTEGER  <  h-2  .» 
DIMENSION  TABLE  <200, 10> 
LUCRT  =  32 


CCC  Write  the  error  message  to  the  output  device 


WRITE  < LUCRT, 10)  ROW,  <  TABLE  <19,  I  =  1,3> 
FORMAT< /X,"  ERROR  AT  ROW=u  ,  14,  /,  11  PIN  AN! 
RETURN 
END 

;  c  c cc cc  CC C C  C  C  C CC  C  CCC  C C CCC C  C  CCCCCCCCCCCCCCi 
SUBROUTINE  BKTRC  '.TABLE,  POW> 


0  t>  0  7  CC 

■33  os  c 

03  <3?  IMPLICIT  INTEGER  <  A-I  .> 

OS ! 0  D I  MENS  I  OH  ThBLE  <  2  0  0.  1  0  3 

05 1  1  C 
0512  CC 

'■'513  CCC  Check  to  see  if  we  now  have  *  non-zero  Good  Goto  pointer 
05  1  4  CC 
■  515  C 

05 1 6  10  IF  <  TABLE  CROW,  Si  .HE.  0  .<  GO  TO  2  0 

05  i  7  r 
05  IS  CC 

0519  CCC  No,  we  don  t  so  decrement  the  row  pointer  and  check  again. . . 
0520  CC 
052 1  C 


0522 

ROW  =  ROW  -  1 

0523 

GO  TO  1 0 

0524 

c 

0525 

cc 

0528 

CCC  V 

es,  we  do,  so  set 

•3527 

cc 

0528 

r 

052? 

2  0 

ROW  =  TABLE  CROW 

053  0 

RETURN 

353  1 

END 

i.-532 

CC CCC  CCCCC C CCCCC  CCC  CCC 

0533 

SUBROUTINE  NOTFV 

0534 

c 

0335 

cc 

0538 

CCC 

THIS  SUBROUTINE 

0537 

CCCC 

THE  ACTUAL  FhULT 

0538 

CCC 

0539  CC 
0540  C 

0541  IMPLICIT  INTEGER  <A-Z> 

0542  DIMENSION  PI NAME  <3) 

0543  LUCRT  =  1 

0544  WRITE  < LUCRT  ,5)<PINAME  <  I  >,  I  =  1,3) 

0545  5  FORMAT-:  “  LOCATION  OF  FhULT  IS  :  “  .  3A2 ) 

0546  C 
05*4?  CC 

0543  CCC  Check  to  see  if'  the  fault  is  a  VCC  or  GrID  fault  Special  case  for  each 


0549 

CC 

board  > 

U550 

c 

0551 

IF  <  PI  NAME  ■  i  ') 

.  EG . 

2HU4  . 

AND.  PI  Name  2 )  .EG.  2H5  .  .AND. 

0552 

1  PI NAME  <  3 ) 

.EG. 

2H20  ) 

GO  TO  20 

0553 

IF  i  p I NAME  < 1  ) 

,  EG . 

2H  U  . 

AND.  PI NAME  C 2 )  .EG.  2H45  .AND, 

0554 

1  PI  NAME  -.’3.) 

.  EG . 

2H .  2  ) 

GO  T O  1 0 

0355 

RETURN 

0556 

1  u 

WRITE  C 1 ,  15) 

0537 

15 

FOkmAT  "  GROUND  ERR 

Oft  ON 

CPU  CHIP,  CHECK  ORIENTATION"  ) 

05*33 

RETURN 

0559 

2  0 

WRITE  25) 

0  5  6  0 

25 

FORMAT  f.  “  VCC 

ERROR 

Orl  CPU 

l  CHIP,  CHECK  ORIENTATION") 

056 ) 

RETURN 

0562 

END 

u563 

CCC 

C  C  C  CC  C  CC CC  CCC  C  CC  C 

CCCC  CC 

CC  CCCC 

CCCC CCCC CC  CCCCCCCCCCCC CCCCCCCCCCCC CCC  c 

•■■564  SUBROUTINE  BKCHK  <  TABLE .  ROW ,  VALU,  PI  NAME) 

Tit.:,  c 

05 t 6  CC 

i;5(S7  CCC  This  SUBROUTINE  CHECKS  TO  SEE  IF  THE  LAST  NODE  'ACTUALLY  NEXT  NODE 

0563  CCCC  IN  CIRCUIT  TEST  PROGRESSION)  WAS  BAD,  AND  THIS  ONE  IS  GOOD,  IF  THI 
0569  CCC  IS  THE  CASE  THEN  IT  IS  THE  NODE  IN  ERROR  SO  LOAD  IT  S  SET  VALU  TRU 
0570  CC 
C37i  C 

4572  IMPLICIT  INTEGER  H-Z  .- 

•55 73  LOGICAL  VALU 

5374  DIMENSION  ThBLE  -.'200,  1  0),  PI  NAME  <.  3  ) 

0575  O 
•?576  CC 

-5577  CCC  Get  the  FROM  pointer  and  put  it  into  POIHTR 
U573  CC 
0579  C 

05S0  POINTR  =  TABLE  ( ROW .  1 0  > 

0581  C 
0582  CC 

0533  CCC  Now  check  node  <  N—  1  .>  to  see  if  BhD  flag  was  set,  if  so  then  ve  "re  ok 
0534  CC 
0535  C 

0586  IF  -.TABLE  <.  POINTR,  ?'  .  NE .  0)  GO  TO  5 

0537  C 
Op  S3  U  C 

0539  CCC  If  we  get  here,  it  means  that  node  H  was  ok.  Put  N-1  was  not,  whic.n  is 


0590 

cc 

an  impossible  occurrence,  so  flag  it  and  return 

iJ  5  9 1 

c 

0592 

VALU  =  .TRUE. 

0593 

RETURN 

0594 

*5 

VALU  =  .FALSE. 

0595 

c 

0596 

CC 

0597 

CCC 

Store  the  PIN  nAME  for  notifying  pui  poses 

0593 

CC 

A-13 


m  o'- 


0599 

c 

Ob  0  0 

DO  10  J  = 

Ob  01 

PI  NAME 

lib  02 

1  0 

CONTINUE 

Ob  03 

RETURN 

0604 

END 

06  05 

cc  cc 

CCCCCCCCCCO 

06  06 

SUBRGUTINi 

06  07 

c 

06  08 

cc 

06  U  9 

ccc 

THIS  SUBRi 

06  1  0 

CCCC' 

COMPARES 

061  1 

ccc 

IS  GOOD  I 

06  t  2 

cc 

06  1  i 

c 

06 1  4 

IMPLICIT 

06  1  5 

LOGICAL  G 

|J6  1  b 

DIMENSION 

Ob  17 

DIMENSION 

06 1  8 

PAKLEH  = 

•j£  1  S 

NUMCHR  = 

062  0 

c 

u62  1 

c  c 

LCC 

It  RR8CNT  i 

Cl  so  cheel:  it,  and  it  it  is,  then  store  it  in  either  VCC  or  GND 


IF  lPRBONT  ME.  1  .  hMu  .  PR8CMT  .ME.  2)  GO  TO  19 
IF  *. I'RBGNT  .EG.  2>  GO  TO  13 
DO  12  ..l  =  1  ,  2 

VCC  l J  >  -  ThElE  cROW,  <  J  +  3 )  ) 


0629 

1  2 

CONTINUE 

063  0 

GO  TO  19 

Ob  3  1 

13 

Du  14  .i  =  1, 

fit  3  cl 

GND  >’  J  >  = 

Ob  53 

14 

CO NT  I  HUE 

,'i  •  *7  4 

*.»  b  ^  t 

c 

u635 

CC 

Ob  3b 

r.  r 

Subroutine  HCVRT 

Ob  37 

CC 

CMPhR  so  it  can  c 

063ft 

C 

0  6  3  9 

19 

ChLL  RCVPT  HOL 

064  0 

c 

0641 

cc 

0642 

ccc 

NOW  WE  HAVE  THE 

0643 

cc 

TABLE),  SO  WE  C 

0644 

c 

0645 

IF<<CMPAP< l >.EQ 

0646 

+  <  CMPARC  2  .> .  EG 

0647 

GOOD  -  , FttLS 

0648 

TABLE  <  ROW, 

0649 

RETURN 

0650 

20 

GOOD  =  .TRUE. 

065 1 

TABLE  CROW,  6  > 

0652 

RETURN 

0653 

END 

0654 

cccccc c  ccccccc ccccccc 

0655 

SUBROU  f  I  ME  RfctVT 

0656 

c 

0657 

cc 

0658 

ccc 

THIS  SUBROUTINE 

•r  •"*  r  r-  r  r  r  r  r  r- 1*'  r  r  r  r-  r 


THt  I  rl  i  ERFaC  E  BtTWEEN  THE  S1GHATURE  h.NAlVZER 

A- 14 


0659 
066  0 
06b  1 
0662 
0663 
0664 
0665 
0666 
0667 
'JobS 

06  c-'? 
0670 
067  1 
0672 


AND  THE  MhIN  FORTRAN  PROGRAM.  IT  GETS  THE  SIGNATURE  AMD  STORES  IT 
IN  THE  VARIABLt  HOLD  IN  A  4«1  FORMAT. 


IMPLICIT  INTEGER  t h-2 > 

D I  MENS  I  ON  POSC  HR  '  16).  HOLD  <  4  > ,  I RBUF  <  2  ) 

[jaTa  POSCHR  / 1  HO , 1 H l  ,  l  H2 ,  1 H3 ,  i  H4 ,  1 H5,  1  H6 ,  1 H7>  1  Ha ,  1  mS  .  1  HA ,  i  HC  , 

+  JHFy 1 HH . !HP, 1HU/ 

C 

CC 

CCC  NOW  PAUSE  TO  GIVE  THE  OPERATOR  A  CHANCE  TO  PROBE.  WHEN  HE<  SHE  >  DOE:; 
CC  THEY  THEN  ENTER  A  CaFRIhGE  RETURN  <'.LK))  AND  IT  PEttDS  THE  SIGNATURE 
C 

WRITE  <1,0 

1  FORMAT < "  ENTER  .CP'  AFTER  PROBE  IS  SET”; 

READ  < 1 .2)1 DUM 
I  FORM  A  T<  12) 

IF  < IDUM  . EO .  Ul  .OR.  I DUM  ,Eu.  10)  STOP 
Call  EXEC  •.  t  .  21  OOB+lUSa,  I  RBUF ,  -4) 


0  o  7  8 

HOLD 

<  1 

=  POSC HP 

■  I  AND 

< IRBDF 

•'  1  >y 

74  0  OB) 

/256  + 

i ) 

067 1 

HOLD 

<  2  > 

=  POSCHR 

■  I  AND 

< I RBUF 

<  1  ), 

1  7B  >  + 

1  ) 

:'t£$0 

HOLD 

>.  3  > 

=  POSCHR 

*'.  T  AND 

< IRBUF 

<2>y 

74  0  OB) 

/H56  + 

i ) 

063  t 

HOLD 

<  4  ) 

=  POSCHR 

<  I  AND 

•'  IRBUF 

<2j. 

17B)  + 

1  > 

•jt-.yv 

.„*  3 

4  CC  CC 


RETURN 

END 


SUBROUTINE  PRMP1  ‘DUMMY.  REF'ROB) 


THIS  SUBROUTINE  PROMPTS  THE  TEST  OPERATOR  TO  PROBE  THE  PIN 
SPECIFIED  BY  ALPHANUMERIC  VARIABLE  DUMMY 


implicit  integer  <h-; 

0 1  MENS  I  Oft  DUMMY’  <  3  > 
LOGICAL  REF'ROB 


06  ?4 

U.UCRT  =  1 

06‘»5 

IF  '' REPROB  .> 

0606 

WRITE  CL 

0607 

1  0 

FORMAT- 

06  OS 

RETURN 

•J60? 

13 

WRITE  '.LUCF: 

07  00 

2  0 

FORMAT  <  11  PO 

0701 

REPRuB  =  .  Fi 

07  02 

RETURN 

07  03 

END 

•j  7  04 

CCCC 

CC  c  c c c c cccccc 

0705 

SUBROUTINE 

07  06 

C 

07  07 

CC 

07  04? 

CCC 

THIS  SUBROU 

07  00 

CCCC 

PIN  NUMBER 

071  0 

CCC 

071  1 

CC 

0712 

c 

0713 

IMPLICIT  IN 

0714 

DIMENSION  T 

0715 

DO  1 0  I  -  1 

0716 

DUMMY’  <  I 

0717 

1  0 

CONTINUE 

07  IS 

RETURN 

SUBROUTINE  GTPIM  -TaBlE.  RON.  COLUMN.  DUMMY) 


A-15 


=M#  A 

ga*  3 

M  i 


0722 

c 

0723 

CC 

0724 

CCC 

0725 

CCC! 

0726 

CCC 

0727 

cc 

0723 

c 

0729 

c 

0730 

c 

07o  1 
0732 

c 

c 

07  33 

C  1 

0734 

c 

0735 
; :  7  T  6 

c  1 

J~ 

V. 

■j  ?  7 
■1736 
077.9 

r 

C  i 
C  1 

074  0 

074 ! 

.3742 

:-* 

, T  4  3 

1 

■1744 

c 

0  r  4  ~ 

1 

7  a 

*  V 

0  7 

■* 

I.i?j 

f  ; 

1)  7  4  5 

c 

•3750 

1“ 

375! 

C  1 

0752 

C  ! 

0757 

c 

0754 

c 

0755 

C  i 

0756 

c 

0757 

C  i 

0758 

c  1 

■3753 

r  1 

0760 

c 

076! 

c 

0762 

cc 

07 6  3 

CCC 

0764 

cc 

cccccccccecccccccccccccccccccccccccccccccccccecccccccccccccceccccccccccc 

SUBROUT I HE  I MSHA< TABLE , INTXT , I DCB , NAME , TEXT , L I ME , NuMREC , F IlCHC ) 


Data  file  created  for  each  unique  PCB,  and  creates  a  table  in 
memory  for  the  rest  of  SACHPR  to  utilize. 


07  65 

o?66 

or  6  7 

or  6? 
.3769 
07?  0 
077 1 
0772 
0773 
0774 
0775 
077c. 
0777 
0778 


ARRrtTS  hHD  VaRIaBLlS  USED  IN  THIS  SUBPROGRAM: 

F ILCHC1;  35)  Array  to  hold  data  file  name  and  description  of  contents 

INTXT  ^ 1 3  >  The  data  Input  Text  Buffer 

i DC 8  < 144  i  Input  Data  Control  Block  buffer 

LINE  i.26}  Holds  unpacked  version  of  an  input  record 

MhME  <3)  Holds  the  file  name  of  SA  data  file  tin  3A2  f ormat ) 

TABLE  >'200,  1  0)  Table  to  hold  all  the  input  data 

TEXT  ;i3.i  Holding  array  used  Dy  CNVRT  to  unpack  INTXT 

CP  Cartridge  Peference  Number  of  Data  file 

rXTLEN  the  length  of  the  TEXT  array 

LlilLEN  the  lengtn  of  the  LINE  array 

II  #  of  'lords  to  read  in  a  CALL  REhDF  record 

luPTN  file  type  parameter  to  CALL  OPEN  < not  used,  hence  0> 

SEC ODE  the  security  code  of  the  Sh  data  file 

IDCBS  size  of  tne  Data  Control  Block  in  words 

IEPR  Error  parameter  on  all  FMP  calls 

ROM  Row  pointer  into  TABLE 

NUMREC  Number  of  Records  in  the  Data  file  of  nodes 


LXTlRNhL  SUBROUTINES  AnD  FUNCTIONS  CALLED: 


CNVRT 

HUM 

UNPAK 


converts  packed  text  A2  >  into  unpacked  text  <A1> 
converts  hollerith  characters  into  numbers  < integer) 
unpacks  an  A2  variable  into  2-A1  variables 


C  INITIALISATION 


IMPLICIT  INTEGER  < A-Z > 

DIMENSION  TABLE  •;  200,10),  IhTXT  <13,.  IDCB  <144.>,  NAME  <3) 
DIMENSION  TEXT  <13>,  LINE  <26>,  F  IlCHC  <  35  ) 

TXTLEN  =  13 
LIHLEN  =  26 
IOPTN  =  0 
SECODE  =  2HRT 
IDCBS  =  144 
INTXT  <3l=  2H 
C 

CC 

CCC  Now  open  up  the  dat a-f i le-nams  data  file 
CC 


-I’M . I . . 


NAME  < 1 > 
NAME  <  2 ) 
NAME  •'  3  ) 
IL 
CR 


2HSA 
2HF I 
2HLS 


—  1  8 


•Now  actually  open  up  the  file 


CALL  OPEN  < I DCS .  1 ERR,  NAME  > 

WRITE  t  1  ,  1  > 

FORMaTC//, “  FOLLOWING  IS  LIST  OF  AVAILABLE  FILES,  ENTER  YOUR 
1  CHOICE  FROM  THIS  LIST.  TO  RE-PRINT  THE  LIST  ENTER  ?'•'  IN  " 
2"  RESPONSE  TO  REQUEST  FOR  FILE  NAME" , /, 

!//,'■  FILE  NaME" .2X, "Cfi".2X, "DESCRIPTION  OF  CONTENTS",/, 


■",//, 


5"  WHEN  ASKED  TO  HIT  <CR>  AFTER  A  PROBE,  SHOULD  YOU  LUSH  TO  " 
6"  EXIT  THE  PROGRAM,  TYPE  A  1  **  > 

CALL  RWNDF  <IOCB> 

CONTINUE 


C  Now  read  one  entry  from  the  data-file  name  data  file 


m  i 

0820 

o 

V 

p  §f 

0821 

|:  t 

0822 

w 

0823 

f  1 

0824 

0825 

c 

cc 

i  § 

0826 

ccc 

1  ?- 

0827 

cc 

p  ? 

0828 

c 

S'*  ¥ 

0828 

i 

0830 

c 

s  ^ 

0831 

cc 

%*m  £' 

0832 

ccc 

: 

0833 

cc 

0834 

c 

B  i 

0835 

0836 

c 

B  s 

0837 

cc 

8  £ 

u838 

ccc 

if  It 

call  readf  <ic*cb,  ierr,  fi_chc,  il.  len> 

IF  < IERR  .LT.  0  >  GO  TO  SOuO 
IF  {.  FIlCHC  ■'  ;  >  .Eft.  2H  .)  GO  TO  4 
WRITE  •,  1  ,  3)  FILCHC 
F-  ORMATC  ( X ,  3A2 . 5X  .  A2 , 2X .  3 1 A2  .> 

GO  TO  2 
WRITE  <1,  5) 

FORMATC  //,  "  ENTER  FILENAME  :  "  ) 

READ  <1,  6'>  < NAME  If,  I  =  1,  3> 

FORMAT1,  3A2  > 

IF  C  NAME  CO  .Eft.  2H??  *  GO  TO  101 
WRITE  Cl,  ?) 

FORMATS "  ENTER  CR : " > 

READ  < 1 ,  S  >  CR 
FORMaTv  12 

IF  < CR  .LT.  15  .OR.  CR .  GI .  20  >  GO  TO  4 
CALL  OPEN  CIDCB,  IERR.  NAME  > 

IF  < IERR  .LT.  0 >  GO  TO  4 


we  get  here  if  we  successfully  opened  their  data  file 


ROW  =  1 


Now  read  the  ROWth  record. . . 


CALL  REaDFC  IDCts  .  IERR,  I NYX :  .  iL  . i.EN  > 

If  there  is  a 


reading  error. 


ao  to  the  error  handier 


A-17 


,  I  h'|)  ^  wmwimium 


0839 

'I  c 

084  0 

c 

084  t 

IF  CIERR  .LT. 

0842 

c 

0843 

cc 

0844 

ccc 

Check  for  the  word 

0845 

cc 

0846 

r. 

0847 

IF  C INTXT  C3> 

0843 

c 

0849 

CC 

0850 

CCC 

Copy  the  Pin,  Chip 

0851 

cc 

0852 

c 

0853 

DO  10  I  =  1,5 

0354 

ThBlE  CROW, 

•J855 

1  0 

continue 

0856 

c 

0857 

cc 

i.i  y  y 

r  r 

Now  unpack  the  rec 

INTXT  < I > 


CALL  CNVRT  C  INTXT,  LINE,  TXTLEN,  LIHLEN) 
put-  integer  value  of  6th  &  7th  column  of  data  file  into  TABLE 


TABLE  <  ROW,  6>  =  10  *  HUM  <  LINE  <11  >>  +  HUM  <  LINE  C12>' 
TABLE  <  ROW .  ?>  =  10  +  NUM  <  LINE  <13>>  +  NUil  <  LINE  <14)> 


No i#  convert  the  three  pointers  CGGTO,  BGTO,  FROM)  into  integers- 
and  store  them  ir.  their  proper  location  in  the  TABLE 

ThBlE  <  RON .  8;  =  1000*NUM  <  L I  HE  <  1 5  >  >  +  1  00*NUMC  LIHEC  1 6 1  :■ 
TriBLE’>  ROW,  8  i=7hBlEC  ROW,  8  >+1  0+NUHCLINEC  1 7  >  )+NUM<  L I  NE<  IB  >> 
ThBlE<  RON , 9 >= 1  0 0 0*NUM< L I NE< 19  >  >+ 1 O0*NUH< L INE<  2  0  > > 

TABLE1'  ROW,  9  >=TABlE<  ROW, 9  >+l  0*NUMC  LINEC21  )  >+NUH<LINEc  22  >  > 

T ABLE< ROW , 1 0 >= 1  0 0 O+hOMC L I NEC  23 ) >+ 1 0 0*NUM< L I NEC  24  >  > 

TttBLE-'  ROW ,  1  0  >.=TASLE<  ROW,  1  0  1+1  0*NUMC  L INEC  25  >  >+NUM<  LI  NEC  26  >  > 


093  0 
033 1 
0382 
0383 
0384 
0885 
0836 


0887 

CC 

0888 

ccc 

0889 

cc 

0390 

c 

0831 

OC  *) 
Vv  7* 

4  0 

0893 

c 

0894 

cc 

0355 

ccc 

0896 

cc 

0897 

r 

0898 

Increment  the  ROW  pointer, 


ROW  -  ROW  +  1 


and  go  bad:  to  read  another  record 


GO  TO  9 
CONTINUE 


we  get  here  upon  an  EOF 


NUMREC  =  ROW 


1 


A-18 


WWfl . . . . . . . . . . 


0899 
0900 
09  01 
0902 
0903 
0904 
0905 
0906 
0907 
09  08 
0909 
09 1  0 
0911 
u9 1 2 
9  i  3 
•.=9  1  4 
09 1  5 
i.i  9 1  c- 
;9  i  7 
09 1  3 
09 . 9 


RETURN 

9000  WRITE  <.  6, 901  0  >IERR,  NAME,  CR 

9010  FORilAT<  “  ERROR  #",14,  “ON  FILE  :  “  ,  3A2, 11 :  :  * ,  13  i 
STOP 
END 

CCCCCCCCCCCCCClCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE  CHVRT  <  TEXT ,  LINE,  TXTLEN,  LINLEN) 

C 

CC 

CCC  This  subroutine  converts  packed  line  in  TEXT  into  an  unpacked  string 
CC  twice  as  long,  in  LINE 
C 
C 
C 

C  VARIABLES  hND  ARRAYS  USED  IN  THIS  SUBROUTINE 


C  CHkRS<2>  holds  two  unpacked  characters  used  in  call  unp*ack 

C  7E  T>;  TXTLEN  >  holds  the  packed  text  tnat  needs  to  be  unpacked 
C  t_  InF<  LIMLEN  >  holds  the  unpacked  version  of  TEXT 
C  PTR  a  horizontal  colunn  pointer  into  LINE 


I.*  9  20 

r 

0921 

C 

0922 

c  EXTERNAL  SUBROUTINES  CALLED 

i.i923 

c 

i':r24 

C  UNPAk  unpacks  two  pa 

v‘?25 

c 

‘•Vi  ‘ 

IMPLICIT  INTEGER  ■;  h  -  Z> 

i*-92? 

DIMENSION  CHARS  ',2  1,  TEX 

•‘■923 

PIP  =  0 

0929 

c 

0930 

c  c 

093- 1 

L  C  C 

loop  from  tr.e  beginning  0 

V>3«£ 

CC 

0933 

c 

:;934 

DO  10  I  =  S,  TXTLEN 

097-5 

PTR  =  PTR  +  1 

0936 

r 

0937 

CC 

‘.'933 

cec 

unpacking  as  we  go.  .  .  usti 

0939 

cc 

0940 

c 

0941 

CALL  UNPAK  <  TEXT  (  J  t, 

0942 

c 

0943 

cc 

0944 

CCC 

put  the  unpacked  *■•*  e  r  si  on 

0945 

cc 

0946 

c 

094  7 

LINE  <  FTP  >  =  TMP  t  1  ,• 

0948 

PTR  =  PTR  +  1 

0949 

LINE  <  P 7 R  .»  =  1  HP 

U950 

1  0 

CONTINUE 

095  i 

RETURN 

r,952 

END 

u953 

CCCC 

CCCCCCCCCCCCCCCCCC  CCC CCCC Ci 

0954 

FUNCTION  NUM  < CHkR ; 

0955 

c 

0956 

cc 

0957 

CCC 

This  function  converts  a  ! 

0958 

cc 

into  an  integer  number  in 

A-19 


A 


MMkm  J&thtor  UM  (Htw  illlilliiliililiMi  |il|iii|ii|l  y  0  i 


sti 


0959 

c 

0960 

c 

0961 

c 

0962 

c 

VARIABLES  AND  ARRAYS  USED  IN  THIS  FUNCTION 

0963 

c 

0964 

c 

0965 

C 

CHAR 

the  actual  character  upon  which  conversion  is  to  be 

0966 

c 

0967 

c 

0963 

c 

SUBROUTINES  AND  FUNCTIONS  USED  BY  THIS  FUNCTION 

0  969 

c 

097  0 

c 

0971 

0972 

0973 

c 

c 

c 

CODE 

system  subroutine  needed  to  do  type  conversion 

0974 

IMPLICIT  INTEGER  ‘.A  -  2  > 

0975 

>1976 

c 

cc 

0977 

0973 

0979 

cc 

I-  j  ■■ 

C 

treat  a  blank  as  a  leading  zero,  so  handle  accordingly 

c 

IF 

< CHAR  , EQ.  iH  >  GO  FO  10 

Oh  6  0 

0981  C 


y  982 

CC 

0983 

ccc 

call  system  CODE  routii 

0934 

cc 

0985 

c 

0986 

ChlL  cope 

>i937 

c 

0  9  8 8 

cc 

0989 

ccc 

'’Read”  the  character  >:.i 

099  0 

cc 

0  991 

c 

0992 

READ  k  CFuR ,  5 >  HUM 

0993 

0994 

cc 

0995 

ccc 

by  the  following  forma 

0996 

cc 

0997 

c 

0998 

5 

FuRMhT ( I 1 j 

0993 

RETURN 

1  0  0  0 

1  0 

HUM  =  0 

10  01 

RETURN 

1  0  02 

END 

1  0  03 

cccc 

CCCCCCCCCCCCCC cc  cccccc  c> 

•  0  04 

SUBROUTINE  UNPAK  <  PAR 

!  0  05 

c 

1  0  06 

cc 

1  0  07 

ccc 

1  0  03 

cccc 

This  subroutine  unpack 

1  0  09 

ccc 

format,  into  2  chars, 

1010 

cc 

1011 

c 

1012 

IMPLICIT  INTEGER  ■  h  -• 

1013 

DIMENSION  CHARS  C  2  ; 

1014 

CALL  CODE 

1015 

REaD<.PAR,  5  >  CHARS 

l  0 1  6 

5 

FORMATS 2A1  > 

1  n  1 7 

RETURN 

1018 

END 

A-20 


i 


1019 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

1  020 

SUBROUTINE  2ER0R  t  ARRAY , 

l  02 1 

c 

1  022 

cc 

1  023 

CCC 

This  subroutine  sets  ARRAY 

i  024 

cc 

1  025 

c 

1  026 

IMPLICIT  INTEGER  ■!  A-2  > 

1  027 

DIMENSION  ARRAY  <  LENGTH , 

1  026 

DO  20  I  =  1 , LENGTH 

1  029 

DO  10  J  =  1, WIDTH 

1  03  0 

ARRhY  I  .  0)  =  0 

1  031 

1  0 

CONTINUE 

1  032 

2  0 

CONTINUE 

1  033 

RETURN 

1  034 

END 

1  033 

CCC 

C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  c  c 

1  036 

SUBROUTINE  OUTPT  1  TABLE, 

!  037 

I  035 

cc 

1  039 

cc  c 

This  subroutine  outputs  the 

1  04  0 

cc 

i  04  i 

c 

1  0*+ 2 

IMPLICIT  INTEGER  •'  h  -  Z  ) 

;  043 

d  i mens  i on  table  t  2  0 0  ,10  .• 

!  044 

DO  10  i  =  1 .  NUMkEC 

1  045 

WRITE  tb,5  >1  TABLE  <  1 

1  i>46 

5 

FORMAT*.  IX.  13.  "  !  “ 

1  0  4  7 

1  0 

CONTINUE 

'  045 

WRITE  t  6 , 1  5  > 

■  049 

15 

FORMnTt  1H1 

1  050 
l  05  I 
u52 
i  053 
1  054 
5  055 
i  0  5  6 
1  057 
1  055 
1  055 
t  06  C 
5  06  1 
1  062 
l  o63 
;  064 
1  065 
"1  U66 
1  0  6 1 
I  U6S 
i  u69 
i  07  0 
1  071 
072 
i  073 
1  074 
1  075 
1  u?6 
1  077 
1  075 


RETURN 

END 

co  ccccc  e  c  c  c  c  l  c  c  >:  c  c  c  c  c  c  c  c  c  c  c  c  c  c  s  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c  c 

SUBROUTINE  RCVPT  v HOLD .  CMFaR.  Nl^CHR,  PAKLEN,  CHARS  > 

c 

cc 

CCC  This  subrouting  takes  the  text  in  HOLD  and  using  subroutine  PACK 
CC  packs  it  into  CMPhR 
C 


C  VARIABLES  AND  kRRhYS  USED  IN  THIS  SUBROUTINE 

C 

C 

C  HOLD*.  NUMCHP  ">  unpack  ea  hOlD  of  characters  that  need  packing 
C  CMPAPX  PA!-  LEN  >  packei  Cr-IPAR  of  characters  that,  came  from  HOLD 
C  rlUMCHR  the  number  of  unpacked  characters  in  HOLD 

C  PAKLEN  the  number  of  packed  characters  in  CMPAR 

C  FLhG  flag  to  tell  if  we  need  to  add  an  extra  trailing  blank 

C  CHAR?<  2 )  array  of  two  unpacked  chat  acters  from  which  to  pack 

C  J  horizontal  pointer-  into  the  HOLD  array 


C  EXTERNAL  SUBROUTINES  CALLED  FROM  THIS  SUBROUTINE 


PACK 

LENTH 


packs  two  characters  in  CHAR1;  1  X  2  into  PhK 
function  to  return  the  number  of  characters  in  STRING 

A-21 


iP5Pi.IC.IT  INTEGER  <  A  -  Z  > 

DIMENSION  HOLD  <  NUMCHR  ) ,  CMPaR  <PAKLEN>,  CHARS  <  ; 

FLAG  =  0 

get.  the  number  of  characters  in  HOLD 
NUMCHR  =  LENTH  <HGlD> 

find  out  if  it  needs  a  trailing  blank  before  it  gets  packed 

IF  c  MOD  •NUMCHR,  2>  .  EG .  O’-  GO  TO  5 

here  if  it  needs  an  extra  blank,  so  set.  FLAG  accordingly 

Pl  AG  =  1 
COrn  I  HUE 
J  =  0 

loop  tor  the  number  of  characters  in  HOLD 
DO  20  I  =  1,  NUMCHR 

increment  horizontal  column  pointer  into  HOLD  to  get  next  character 
J  "0+1 

put  the  f irst  character  to  be  packed  into  CHARS 
CHARS  i  i  =  HOLD  J  '> 

see  if  we  need  an  extra  blank  to  be  put  in  CHARS  <2> 

IF  ■'  .NOT.  -:<I  .EG.  NUMCHR >  .AND.  <  FLAG  ,  EQ ,  1>>>  GO  TO  10 

we  get  here  if  the  trailing  blank  is  needed 

CHARS  <  2  >  =  1 H 
GO  TO  15 

increment  column  pointer  to  get  the  next  character 


1139 

1140 
1  141 
i  1  42 
1  143 
1  144 
1  145 
i  143 
114? 
1  1  48 
1  149 
1  150 
1151 
1  152 
1  1  53 
i  154 
1  1  55 
f  156 
'  1  5? 
'  1  58 
1  159 


J  =  J  +  1 


CCC  put  the  second  character  into  CHARS 


CHARS  <  2)  =  HOLD  <  J> 


CCC  and  pack  the  two  of  them  into  PAK 

CC 

C 

CALL  PACK  < PAK ,  CHARS > 


CCC  and  then  put  the  packed  characters  into  the  array  CMPAR 


CMPAR  <11  =  PAK 
20  CONTI HUE 
RETURN 
END 

CCC CCC CCC  CCCf CCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION  LENTH  <  STRING  ) 
c 

CC 

CCC  This  Function  determines  the  number  of  characters  in  the  array 

CC  STRING.  Maximum  length  is  80  and  if  the  STRING  is  blank  0  is  returned 

C 

IMPLICIT  INTEGER  < h  -  Z> 

DIMENSION  STRING  <301 


CCC  Set  string  pointer  at  rightmost  end  o+  array 

CC 

C 

I  =  80 


1  178 
1  1  79 
1180 
1  i  8 1 
1  182 
1  1  83 
1  184 
1  1  85 
1  1  86 
1  187 
1  188 
1  1  89 
1190 


CCC  now  check  to  see  if  we  are  at  left  edge  of  array 

CC 

C 

5  IF  <  I  .LT,  l  J>  GO  TO  20 


CCC  if  were  not,  then  check  to  see  if  this  character  is  non-blank 


IF  <  STRING  (.1)  .Eu.  1H  '>  GO  TO  10 


CCC  if  it  is  non-blank/  then  I  is  the  length  of  this  array 


LENTH  =  I 
RETURN 


CCC  if  it  is  a  blank,  however,  then  shift  the  pointer  to  the  left  and 
CC  loop  again. 


1 


1199 

C 

1200 

1  0 

1201 

1202 

20 

1203 

1204 

1205 

CCCt 

1206 

12  07 

C 

1  2  OS 

cc 

12  09 

CCC 

1210 

CCC 

121  1 

CC 

1212 

c 

1  2 1  3 

1214 

1215 

1216 

1217 

1  2 1  3 

5 

1219 

1  220 

1221 

CCC 

1222 

1223 

c 

1  224 

cc 

1225 

ccc 

i  226 

CCC 

1  227 

ccc 

1  223 

cc 

1  229 

c 

123  0 

c 

1231 

c 

1232 

c 

'233 

c 

1  234 

c 

1235 

c 

1 236 

c 

1237 

c 

1233 

c 

1  239 

c 

1240 

c 

1241 

c 

1242 

c 

1  243 

c 

1244 

1245 

l  246 

1247 

1243 

c 

1  249 

cc 

125  0 

ccc 

1251 

cc 

1252 

c 

1253 

c 

1254 

cc 

1255 

ccc 

1256 

cc 

1257 

r- 

1  =  1- 
GO  TO  5 
LENTH  =  0 
RETURN 
END 

'CCCCCCCCCCCCC  cccccc cccccccccc 
SUBROUTINE  PACK  <PAK,  CHARS) 


IMPLICIT  INTEGER  <A  -  Z) 

DIMENSION  CHttRS  <2) 

PAK  =  2H 
CALL  CODE 

WRITE  tPAK,  5)  CHARS 
FORMAT1-'  2  A 1  > 

RETURN 

END 

;ccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  DCMNT  <  TABLE ,  NUMREC,  TARRAY) 


c  variables  and  arrays  used  in  this  subroutine 

C  LOOP  Pointer  used  to  loop  through  the  TABLE 

C  NUMREC  The  number  of  records  in  TABLE 

C  TABLE  The  data  Tatle  holding  all  nodes  and  signatures,  etc. 

C  TARRY  The  array  used  to  hold  the-  system  time  and  date 


System  routine  to  get  time  and  date 


IMPLICIT  INTEGER  <  A  -  Z) 

DIMENSION  TABLE  <200,  10),  TARRAY  <J5> 
CALL  FTIME  < TARRAY # 

CALL  OUTPT  < TABLE,  NUMREC) 


DO  20  LOOP  =  1,  NUMREC 


1259 
126  0 
1261 

1 262  9 

1263 

1 264  1  0 

1265 

1266  11 

1 267 

1 268  1  2 

1  269  1  3 

1270  20 

1271 

1272  30 

1273 

1274  35 

1275 


IF  <  TABLE  <  LOOP ,  7)  .  LE .  1)  GO  TO  20 

if  < table  <loop,  ?>  .he.  2)  go  to  io 

WRITE  <32,  9)  <  TABLE  <LOOP,  J>,  J  =  1,  3; 
FORMAT?  “  FAULT!  ’*,3A2,"  "  > 

GO  TO  20 

IF  < TABLE  <  LOOP,  7)  .EQ.  4 >  GO  TO  12 

WRITE  <32,  11  >  STABLE  <LOOP,  J>,  J  =  1,  3  < 
FORMAT<  "  8A0  -  " ,3A2,"  a> 

GO  TO  20 

WRITE  <32,  13  i  '■'TABLE  <LOOP,  J),  J  =  1,  3  > 
FORMAT?"  3A1  -  ",3A2,"  "> 

CONTINUE 
WRITE  <  32 , 30  > 

FQRMAT< "  BAD  SIGNATURE'S > :  ",2,"  - 

WRITE  < 32 , 35 J  < ThRRAY  <  I  >,  I  =  1,  15) 

FORMAT<  11  TIME:  "  ,  1  X,  5A2, 2,  1  X,  1  0A2, /,  " - 

+4X ,  "TEST  REPORT  11  > 


/, 


1276 

1  tV  i 

1278 


RETURN 

END 

cccccccccccccccccc ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


1279 

SUBROUTINE  STUCK  <ROW,  TMPHLD ,  VCC,  GND,  TABLE) 

l  28  0 

c 

1281 

CC 

1  282 

CCC 

1  ci  y  *■ 

cccc 

This  subroutine,  checks  to  see  if  the  fault  found  was 

a  Stuck 

at 

0 ,  or 

1234 

CC  c 

Stud'  at  1.  and  if  so  flags  a  SAG  with  3  in  column  7 

of  t  ab I 

e. 

or  4  if 

1285 

cc 

it  is  a  SA1 

1 2y6 

c 

1  287 

IMPLICIT  INTEGER  <A  -  2) 

1288 

DIMENSION  TABLE  <200,  10  ),  VCC  <2'>,  GND  <2),  TMPHLD 

<  2  ) 

1289 

c 

MR  H  E  <1,1  >TMPHLD ,  GND ,  VCC 

129  0 

1 

FORMAT?.  ”  TMPHLD  ”  ,  2A2,  2X  .  "GND  ,  2A2, 2X,  "VCC  "  .  2A2  ) 

1291 

c 

1292 

cc 

1293 

CCC 

Check  to  see  if  it  is  a  SAI,  ShO 

1234 

cc 

1295 

c 

1  296 

IF  <  TMPHLD< i > , EQ . VCC? 1  >  .AND.  TMPHlD <  2  ) . EQ . VCC<  2  )  )  i 

GO  TO  20 

1297 

I F<  .  HOT  .  <  TMPHLD''  1  '> .  EO  .  GND<  1  >  .  AND  .  TMF'HLD<  2  > .  EC  .  GND?  2  )  >  )GO 

TO 

30 

1298 

c 

1  299 

cc 

13  00 

CCC 

Get  here  if  it  is  a  GnD  SA0 )  fault 

1301 

cc 

1302 

c 

1303 

TABLE  f. ROW,  7)  =  3 

13  04 

RETURN 

1305 

2  0 

CONTINUE 

13  06 

c 

i3o? 

cc 

13  03 

CCC 

Get  here  if  it  is  a  VCC  'SAI)  fault 

1309 

cc 

131  0 

c 

131  1 

TABLE  ?  ROW ,  7  '»  =  4 

1312 

RETURN 

1313 

3  0 

RETURN 

1314 

END 

1315 

END$ 
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Good 
Go  To 

Bad 
Go  To 

’From" 
Go  To 

8 

9 

10 

APPENDIX  A  -  Software 

Section  A  - 1  -  Signature  Analysis  Software 

A.  1.5  -SACMPR  8080  A/B  MICROPROCESSOR  DATA  TABLE  FORMAT 


Good  Good 
Node  Name  Signature  Flag 


U  4  5  . 


U  4  5 


U  4  5 


U  4  5 


U  4  5 


U  4  5 


U  4  5 


8  IU4  5 


U  4  5 


10  | U  4  5 


U  4  5 


12  U  4  5  . 


13  U  4  5  . 


14  U  4  5  . 


15  U  4  5  . 


16  U  4  5  . 


U  4  5  . 


18  U  4  5  . 


19  U  4  5  . 


20  U  4  5  . 


21  U  4  5  . 


Bl 


0 

2 

0 

o 

0 

3 

0 

0 

0 

9 

0 

4 

0 

0 

0 

5 

0 

0 

0 

6 

0 

0 

0 

7 

0 

0 

0 

8 

0 

0 

0 

0 

22  U  4  5  .  3  5 


0  0  0  0 


6 


0  0  18 


0  0  19 


0  0  2  0  1  8 


0  0  2  1  1  9 


0  0  2  2  2  0 


0  0  0  0  2  1 


20 

0 

0 

0 

0 

0 

0 

0 

3 

0 

4 

0 

5 

0 

6 

0 

7 

0 

0 

0 

9 

0 

APPENDIX  A  -  Software 

Section  1  -  Signature  Analysis  Software 

A.  1.6  -  SAMPLE  SIGNATURE  FILE,  8080  A/B  MICROPROCESSOR 
USING  NOOP 


Correct 

Signature 


9 

10 

5 

5 

U 

0 

0 

0 

I  H 

8 

6 

5 

5 

U 

5 

5 

u 

5 

5 

u 

5 

5 

u 

5 

5 

u 

0 

0 

0 

5 

5 

u 

5 

5 

u 

Good  Bad  Good  Bad  From 
Flag  Flag  Go  To  Go  To  Go  To 


8 


10  11  12  13  14  15  16  17  18  19  20 


12 


13  U 


14  U 


15  |  U 


16  U 


2  5  I  H  3  3  5 


2  6 


5  5  U 


2  9  0  7  7  2 


3  0  C  4  C  3 


A  A  0  8 


23  i  U  4  5 


24  U  4  5 


25  U  4  5 


26  U  4  5 


27  U  4  5 


3  8  P  C  F  3 


3  9  118  0 


4  0  8  9  F  L 


NOTE: 


T  O  P  S  T 


N  D  E  N  D 


The  data  are  taken  for  NOOP  Program  with  the  START  and  CLOCK 
switches  in  the  IN,  and  the  STOP  switch  in  the  OUT  position  at  the  HP5004A 
Signature  Analyzer  front  panel. 
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SECTION  A.  2 


LNDEL 


1.  LNDEL  Flow  Chart 

2.  LNDEL  Listing  .  . 


APPENDIX  A  -  Software 
Section  A.  2  —  LNDEL 

A.  2. 1  -  LNDEL  FLOW  CHART 


COUNTER 
>  1200 


GET  INPUT 
FILE  NAME 
AND  OPEN 
IT. 


TAPENO  =  5 
(TO  WRITE  TO 
OTHER  TAPE) 


BLANK  OUT 
LINE  OF  TEXT 


BLANK  OUT 
LINE  OF  TEXT 


READ  LINE 
OF  INPUT 
TEXT 


CONTAIN 
END  FILE 
FLAG 


/  IS  IT  \ 
BEGINNING  OF 
FAULT  SECTION 


READ 

NEXT 

RECORD 


CONTAIN 
END  FILE 
FLAG 


LINE 

CONTAIN  • 
l'S.  0'S 


LINE 

START  WITH 
BLANKS 


0  059 

DIMENSION  INTXT  <18),  NAME 

<  3  ) ,  10CB  <144) 

0060 

DATA  E0F/2HEF/ 

0  061 

TAPENO  =  4 

0062 

IL  =  13 

0  063 

COUNT  =  0 

0064 

C 

0  065 

CC 

0  066 

CCC 

Prompt  to  get  the  input  file 

name 

0  067 

cc 

0063 

c 

0069 

WRITE  <1,1; 

0  070 

1 

FORMAT  <"  ENTER  INPUT  FIlE 

NAME: “  ) 

0  071 

READ  <1,2  >N«ME 

0072 

Cm 

FORMAT*.  3A2  > 

0  073 

c 

0  074 

cc 

0U75 

CCC 

Open  the  input  file  name,  if 

an  open  error,  flag 

0  076 

cc 

0  077 

c 

0078 
0  079 
0  080 
0  031 
0032 
uu83 
0034 
!l  035 
0  038 
00-:.  7 
0033 
0  039 
0  090 
0  U'-»  i 

0  092 
0  093 
0  094 
•?0?5 
0  096 
0  097 
0098 
0099 
0 1  0  0 
0101 
01  02 
J 1  03 
01  04 
01  05 
01  06 
01  07 
01  08 
01  09 
0110 
0111 
01  1 2 
01  13 

<jl  1 J 

01  15 
0116 
01  1  7 
0113 


CALL  OPEN  -  I  DC-B,  I  ERR,  HrtME  > 

IF  <  IERR  ,lT,  0>  GO  TO  9000 

c 

cc 

CCC  Blank  out  the  current  line  of  text- 


60  CALL  BLMKR  < INTXT  1 
C 

cc 

CCC  Read  the  next  line  of  input  text 

CC 

C 

CuLL  READF  UDCB,  IERR.  INTXT,  ID 
IF  < IERR  . LT .  0)  GO  TO  9000 


CCC  Check  to  see  it  the  line  has  •  TOTAL.  .  .  11  in  it,  indicative  of  our  Eut 
CC 

IF  <  INTXT  <2>  .EG.  2H0T  .•  GO  TO  200 
C 

CC 

CCC  While  the  word  "FAULT..."  does  NOT  appear,  loop  at  60  reading  lines  of 
CC  input 
C 

IF  <  INTXT  '.2>  HE.  2HAU  >  GO  TO  60 
C 

CC 

CCC  Until  it  does. . .,  then  write  out  ali  subsequent-  lines,  excluding  3ny  and 

CC  all  lines  containir- 3 - s  ur-tii  we  get  EOF  or  non  blank  first  character 

C 

70  WRITE  <  TAPENO  .  75  > INTXT 

75  FORfiAT<  1  8A2  '> 

C 

CC 

CCC  Increment  record  counter-  v  to  see  if  we  need  to  write  to  second  tape 

CC 

C 


COUNT  =  COUNT  +  1 

IF  < COUNT  ,GE.  1200 >  ThPENG 
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01  19 

C 

0120 

cc 

0121 

ccc 

0122 

cc 

0123 

c 

0124 

80 

0125 

c 

0126 

cc 

0127 

ccc 

0128 

cc 

0 1 29 

c 

0130 

0131 

c 

0132 

cc 

0 1  33 

ccc 

0134 

cc 

0 1  3*5 

c 

01  36 

0137 

c 

0 1  38 

cc 

0 1  39 

ccc 

0 1  4  0 

cc 

0141 

c 

Cl  42 

•5143 

c 

01  44 

cc 

0145 

ccc 

i.!  1  46- 

cc 

1  A 

»  !  »  1 

- 

01  48 

0149 

.— 

L 

0150 

cc 

0151 

ccc 

0 1  52 

cc 

0 1  53 

c 

0 1 54 

0 1  55 

200 

0156 

0157 

cc 

0153 

ccc 

0159 

cc 

0160 

c 

0161 

0162 

205 

0163 

0164 

0165 

9  0  0  0 

0 1 66 

9  010 

0167 

0 1  68 

0169 

0170 

c 

0171 

cc 

0172 

ccc 

01  73 

cc 

0174 

c 

0175 

0  i  .•  * 

0177 

0178 

Blank  out  line  of  text  in  preparation  to  read  the  next  one 


CALL  BLMKR  < INTXT  > 

Read  the  next  line  of  input  text 

CALL  REhDF  <IDCB,  IERR,  INTXT..  IL> 


Check  for  EOF 


IF  •  INTXT  <2>  .EQ.  SHOT )  GO  TO  2  00 


If  chars  are  any  comb,  of  -,1,0  then  skip  this  line 

IF  f.  INTXT  •■  5  )  .LE,  02 00*1 B>  GO  TO  80 

If  the  first  few  characters  are  non-blank,  then  we  have  reached 
of  the  current  fault  section,  write  no  more  lines,  go  back  and 

IF  'INTXT  <2;  .ME.  2H  >  GO  TO  6  0 


Otherwise,  go  back  and  continue  reading  and  writing... 


CONTINUE 


GO  TO  70 


When  we  reach  EOt-  .  write  out  the  E*-  for  a  flag 


WRITE  <  T  rtPEHO, 205  >EQF 
FORMAT  <A2) 

CALL  CLOSE  <IDCB) 

STOP 

WRITE  <1,8010) 

FuRHAT< "  DATA  FILE  ERROR" j 

STOP 

END 

SUBROUTINE  BLNKR  •, INTXT) 


This  subroutine  blanks  out  the  text  it  is  passed  as  input 


IMPLICIT  INTEGER  <A-Z) 
DIMENSION  INTXT  <iS> 

DO  10  I  =  1 ,  18 
INTXT  <I)  =  2H 


the 

read 


end 

mors 
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APPENDIX  A  -  Software 
Section  A.  3  —  MKUND 


A.3.2  —  MKUND  LISTING 


iikUHD 


:U0'‘o-i  IS  ON  CPOOOiS  USING  OOOiO  6(.kS  p.=  l000 


FTN4  .  L 

PROGRAM  MKUND 

CO CCCC C CCCCCCCC CC i.C LCCCC L  CCCC  CCClCC cccccc cc cccccccc  cc cccccccc cccccccc cccccc 


PROGRAM : 


PURPOSE : 


PROGRAMMER : 


MKUND 

To  take  the  faults  detected  output  of'  lHDEL  and  make 
it  into  a  fUNDected  fault  listing  in  a  format  which 
can  be  used  as  an  input  for  further  runs  of  SIMUL, 
enabling  SIMUL  to  run  faster  and  more  efficiently. 


C-ttVID  S..  UhGNER 
7070  E  POThWhThMI 
TUCSON,  HZ  85715 
6  02-296-276  C< 


BLDG.  688/T125 
HUGHES/(213)  802-4190 

FULLERTON.  Cm  92634 


DhTE  : 


-  ..HJL  -  80 


DATh  FILES: 


INPUT:  Hny  name  desired,  user  is  >ueried.  This  file 

will  be  the  output  of  the  LNDEL  program . 

OUTPUT:  Outout  will  be  directed  to  tape  4  for  the 

first  1200  faults,  thereafter  to  tape  5 
until  2400  are  reached  < the  maximum > 


CC CCCCCCCC CCCCCCCC CCCCCCl CCCCCCCC :: C CCCC CCCCCCCCCCC CCCC CCCC ccccccccccccccccc 
r 


C  SUSP  OUT  I  HE  TVFE 


description 


c 

C  S'LUi-P 

c 

C  CODE 
C 

C  CNVPT 

C 

C 

C  LENTH 


C  UNF'AK 
C 


User  This  routine  blanks  out  the  array  of  text  it's  passec 

System  Tfiis  routine  reformats  data  in  memory 

User  This  subroutine  is  used  to  convert  a  pacPed  line  of 

te~'t  to  an  unpacPed  form  for  text  processing 

User  This  function  returns  the  length,  in  characters,  of 

the  array  of  te^t  it  is  passed 

User  This  routine  unpacks  one  word  in  an  h2  format  into 

2  words  each  in  or,  Hi  format 


CCCCCC CCCCCCCCCCC CCCClCC CCCCCCCC Cl CCCClCLCCCCC CCCC CCCC CCCCCCCC CCCCCCCCCl CCCC 

C 

C 

C  hRRhYS  USED  IN  THIS  PF OGPhM : 

C 

C  ARRhY  •'  36  >  Array  used  :  or  blanking  out  purposes 

C  CHHRS  ■_  2  >  Hr  ray  into  which  an  h2  word  is  unpacked 

C  END  <  4  >  An  ac  hold.nq  "«END"  characters  for  Ei(D  of  FiLE 
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1 1 * \ ' .  ■ 


0059  C  NrtME  <  3 ')  Hrray  to  hold  the  input  file  name 

0060  C  RUF  <  4  )  Array  holding  "+RUF"  characters  for  Removing  undetecaule 

0061  C  faults  prior  to  *EHC> 

0  062  C 

0063  C  VARIABLES  USED  IH  THIS  PROGRAM; 

0  064  C 

0065  C  COUNT  Holds  the  count  of  number  of  records  written  to  output  tape 

0066  C  LIMLEN  Holds  the  length  in  characters  of  the  unpacked  input  record 

006?  C  TAPEMO  Holds  the  current  tape  drive  no,  for  output 

0063  C  TXTLEN  Holds  the  length  in  characters/2  < packed >  of  input  records 

0069  C 

0  07  0  cccccccccc  ccccc  c  •:  c  c  c  cc  ccccc  cccccccccccccc  c  cc  cc  ccccccc  cccccc  ccccccccccccccc 

0071  C 
0  072  C 

0073  C  GLOBAL  INITIALIZATION; 

0  074  C 

0  075  IMPLICIT  INTEGER  <  A  -  Z ') 

0  076  DIMENSION  IDCB  INTMP  <  1 3  > ,  INTXT  <36>,  OUTXT  <  36  > 

00?'  DIMENSION  CHARS  <2>,  ARRAY  <36>,  NhME  <3),  END  <4> ,  RUF  <4> 


0  0  { 3 

DA Th  END/ 1  H+ ,  1  HE , 1 HN , 1  HD/ 

.j  079 

DATA  RUF/ 1 H* , 1  HR , l HU . 1 HF/ 

0  03  0 

TXTLEN  •-  16 

0  OS  i 

LINI.EN  36 

0  032 

COUNT  =  0 

0  033 

ThPEHO  =  4 

0  084 

0085 

cc 

0  086 

CCC 

Prompt  to  gee  the  input  file  name  f r 

0  037 

cc 

VOSS 

c 

n  089 

MPITE  <'1,1.) 

0090 

1 

FORMAT-;  n  ENTER  INPUT  FILE  NAME:"  ) 

0091 

READ  <1,2  >NAME 

0  092 

d 

FORMAT1;' -3a2  ■ 

0  09-3 

c 

0  094 

cc 

0  093 

CCC 

Open  the  input  file  name,  if  an  open 

0  096 

cc 

0  097 

c 

0  098 

CALL  OPEN  t IDCB,  I ERR .  NAME) 

>•‘099 

IF  >;  TERR  ,  LT.  0)  GO  TO  3  00  0 

01  00 

c 

01  01 

cc 

0 1  02 

CCC 

Blank  out  the  current  line  of  te-''.t 

01  03 

cc 

01  04 

r 

01  05 

1  0 

CALL  BLNKP  < INTMP,  TXTLEN) 

01  06 

c 

0  1  07 

cc 

0 1  08 

CCC 

Read  the  next  ' ine  ot  input  te-t 

01  09 

cc 

01  1  u 

c 

0111  CALL  READF  < IDCB  I ERR •  INTMP) 

01 12  IF  < I ERR  , LT ,  0  >  Gu  TO  900  0 

0113  C 

01  1  j  c c 

01  It  CCC  Check  to  see  if  the  line  haa  "EF"  in  it,  indicative  of  EOF 
01  16  C C 
•3117  C 

0113  IF  <  INTMP  <  1  >  .EG,  2HEF  >  CO  TO  120 


! 


id  ij"  m 


Now,  while  the  line  doesn  t  start  with  blanks,  repeat  reading  lines  ot 
input  until  it  does  t lines  that  don't  start  with  blanks  cant  have  faulti 

IF  *.  INTMP  <1)  .HE.  2H  .>  GO  TO  10 


How  unpack  the  line  so  we  can  i.t  character  positions  more  easily 


CALL  CNVRT  ‘  INTMP,  IN  XT,  TXTLEN,  LINLEN) 


If  the  line  has  an  X  tor  X  s  >  discard  it 


IF  t  INTNT  tlijj  .  EQ .  1 HX  j  GO  TO  11! 


Get  the  length  of  input  text  in  characters, 


LEH  =  LEHTH  •.  I N  TX~  > 


How  create  the  output  text  record 


OUT  XT  >.  1  )  -  1 1ft. 

OUTXT  <2)  =  1  Hu 
OUTXT  <3>  =  i HN 
OUTXT  <4  ;  =  1  HD 
OUTXT  5  .)  =  th 

DO  100  J  =  6,  f.  lEH  -  14  >  +  7 
OUTXT  <J>  =  I  NT  XT  •  ,j  T  g 
CONTINUE 

OUTXT  <  <  LEN  -  U >  +  7)  =  1 HT 


Write  out  the  output  text  record  to  the  current  output  tape  drive 


UR  I TE  < TAPENO .110V  OUTXT 
FORMhT t  3&H 1  > 


Increment  record  counter,  and  if  greater  than  1200,  switch  to  drive  5 


COUNT  =  COUNT  *-  1 

IF  < COUNT  . GE.  1200)  TAPENO  =  5 


Now  Plank  out  input  and  output  records  preparatory  to  reading  in  another 


CALL  BLriKR  \  OUTXT.  lIHLEN.) 
CALL  BLNI'R  tINTXT,  LINLEN  > 
GO  TO  10 


CCC  Now,  write  out  the  rRUF,  and  the  +END  at  the  end  of  the  output  file 

CC 

C 

12  0  WRITE  CTAPEHG,  125.)  RUF..EH0 
125  FGRMAK4H1 , .'\4Ai  ) 

CALL  CLOSE  <  IDCB > 

STOP 

9000  WRITE  < 1 , 90i 0 >IERR 

901 0  FORMATt “  ERROR  ON  DATA  FILE  ERROR  IS  #  "  ,  1 6  > 

STOP 

END 

SUBROUTINE  BLNKP  < ARRAY,  LENGTH  ) 

C 

cc 

CCC  This  subroutine  blanks  out  ARRAY  dimensioned  to  LENGTH  that  it's  passed 

CC 

r 

ipiplicit  integer  -  z> 

DIMENSION  ARRAY  •  LENGTH  > 

DO  10  I  =  1  -  LENGTH 

IF  i.  LENGTH  .EC.  IS)  ARRAY  ■;  I  >  =  2H 
IF  < LENGTH  . EO .  3* >  AFRhY  < I  )  =  1H 
10  CONTINUE 
PE TURN 
END 

FUNCTION  1.ENTH  t  INThT  '* 

C 

CC 

-  U  C  inis  t  unct  i  on  re  tut  ns  the  number  of  characters  in  the  string  INTXT 
CC 

i. 

IMPLICIT  INTEGER  h  -  Z) 

DIMENSION  INTXT  36  .» 

I  =  3c. 

5  IF  C INTXT  O-  .NE.  iH  1  GO  TO  20 

1  =  1-1 

IF  *;  I  .HE.  1>  GO  TO  5 
LEHTH  =  1 
RETURN 

20  LEHTH  =  I 
PET  URN 
END 

SUBROUTINE  UNPAK  A t< ,  CHwRS.> 

CC 

CCC  This  subroutine  Unpacks  2  characters  in  PhK  < A2 >  into  2A i  s  in  array  CHA 

CC 

C 

IMPLICIT  INTEGER  t  ft  -  Z  • 

DIMENSION  CHARS  <  2  j 
CALL  CODE 

READ  < PAK ,  5.-  CHARS 
5  FORMAT^.  2  a  1) 

RETURN 

END 

SUBROUTINE  CNVRT  *•  INTclP  INT;<T,  ‘iViLEN,  LlNLEN,- 


C 

CC 
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,Tr4,w . . .  1  ''  w*-. , 


0239  CCC  This  subroutine  converts  packed  text  in  INTMPC TXTLtrO  into  unpacked 
0240  CL  text  in  INTXT< LINLEH > 

0241  C 

0242  IMPLICIT  INTEGER  <»  -  Z> 

0243  DIMENSION  CHARS  <2>,  TMP  <2> 

0244  DIMENSION  INTMP  <  TXTLEN  ,  INTXT  <  LINLEH  > 

0245  PTR  =  0 

0246  DO  10  I  =  1 /  TXTLEN 

u247  PTR  =  PTR  +  1 

0248  CULL  UNPAK  <  INTMP  <  I  >,  TMP  > 

0249  INTXT  < PTR  )  =  TMP 

0250  PTR  =  PTR  +  1 

0251  INTXT  <  PTR  .>  =  TMP  <2> 

0252  10  CONTINUE 

0253  RETURN 

0254  END 

0255  END* 


. . . . 


SECTION  A.  4 


IN IT/NOOP 


1.  INIT  Listing . . .  A-39 

2.  NOOP  Listing .  A-42 


APPENDIX  A  -  Software 
Section  A.  4  —  INIT/NOOP 

A.4.1-INIT  LISTING 


I  rl  1 T 


T  =  0 0 0 *"i4  IS  On  CROOulS  oSInu  uOui?  BlKS  R-OOOu 


0  0  0 1 
it  0  C'2 
0093 
0  0  04 
0  0  05 
OuOS 
U007 
C  0  US 


FTN4.L 


0022 


PRuGRhN  I nit 
IMPLICIT  INTEGER 


A-I 


REAL  TIME. 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


VDH ..  VC  N  ,  VDL .  Vci 
IDRIV4  <3;.  I  DR IV?  • 
I  DRV  12  '2>,  I H 1 7  <2 
I H IS  <2  »,  I H 1 4  <  2.*, 
ILG12  <2  J,  IHHS  <  I! 


2  i,  I  DP  I  VS  (4.»,  I DRTOG  *  2  / 

,  IHITOG  <  2  >,  ILOTOG  <  2 '> 

IlO?  <  2  >,  I L04  <  2  I  LOS  *.  3  > 
0)  I  ERR  ■,  4>,  IBUF  c  5>.  I  NAM 


00  09 

DATh 

IDRIV4/2, 4? . 4S/ 

.)  0  i  0 

DATA 

I DR IV?/ 1 , 1 04/ 

C:  0  1  1 

DhTA 

I DRTOG/ 1 , 1 05/ 

0  0 1  2 

DATA 

I DP I VS/3/ 106,1  09 

0  0  i  3 

DATh 

IBRV1  2/'  1  ,  177/ 

0014 

DhTA 

IHI4.-  1 ,46/ 

n  1  5 

DATh 

IL04/1 . 47/ 

0  1  6 

DATh 

IL07/1 , 1 04/ 

0017 

DATh 

IHI8/1 , 1 06/ 

00  is 

DATA 

I  LOS. -3,  1  09. 1  07/ 

•019 

DhTA 

ILO 12/1 ,177/ 

002  0 

DATA 

IHITOG/1 , 1 05/ 

002  1 

DATA 

ILOTOG.' 1  ,  1  05/ 

LD  TU  =  30 


0023 

MODE  =  1 

0024 

I CODE  =  23 

0025 

IBUF  < 1 >  =  2H : T 

0026 

IBUF  <2>  =  2HR , 

0027 

IBUF  <3  >  =  2HPu 

00 23 

IBUF  <4>  =  2HWG 

0029 

IBUF  5  >  =  2HN 

003u 

INhM  <  1  )  =•  2HFM 

•3031 

I  HAM  f.  2  >  =  2hGR 

0032 

1 NAM  <3;  =  2H 

0033 

call  EXEC  -  I CODE. 

I  NAM  0,0,0 

.0.0. IBUF 

0034 

CALL  XINIT  <  LDTU, 

IERR,  MODE. 

IP I NS  ; 

0  035 

IF  <  IERR  .NE.  0 i 

GO  TO  9000 

■3036 

TIME  =  IE-2 

0  037 

VDH  =  5E0 

0033 

VDL  =  0E0 

0  039 

VCH  =  4E0 

.■040 

VCL  =  1E0 

0  04  1 

HSET  =  1 

0  042 

CHLL  XTREF  ClDTIJ. 

1  ERR .  HSET. 

VDH,  VDl 

0043 

IF  -IERR  .HE.  CO 

GO  TO  9000 

T044 

NCRD  =  4 

0045 

CALL  XM5ET  < LDTU, 

IERR.  HSET, 

NCRD  > 

0046 

IF  <  IERR  .NE.  0  > 

GO  TO  9000 

0047 

CALL  XTDRV  '.IERR. 

MODE.  IDRIV4,  IP  INS > 

0045 

IF  <  IERR  .HE.  0> 

GO  TO  9000 

0  04  5 

CALL  XETHI  < IERR. 

I H 1 4 ,  IP  I  NS 

S 

0050 

IF  < IERR  .HE.  0) 

GO  TO  9000 

0  051 

CALL  XETLO  < IERR, 

IL04  ,  IP  INS- 

I 

0052 

IF  < IERR  .NE.  0> 

GO  TO  9000 

0053 

CALL  XTEST  <;  IERR  , 

ISTMT,  MODE 

,  I P I MS  f 

0  054 

IF  -IERR  .NE.  0) 

GO  TO  9000 

0055  C 

ChlL  PhUS-R 

u056 

NCRD  =  7 

0  057 

ChLL  XMSET  •  LDTU. 

IERR'.  N’i-ET  • 

NCRD  • 

053 

IF  tIERR  .NE.  0> 

GO  TO  9000 

VCH ,  VCL . 


<3> 
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0059 

CALL  XT DRV  < I ERR 

0  060 

IF  <  IERR  .NE .  0) 

0  061 

CALL  xtdrv  ■;  IERR 

0062 

IF  <  IERR  .NE.  0) 

006? 

CALL  XETLG  < IERR 

0064 

IF  •:  IERR  .NE.  0  > 

0  06. 5 

CALL  XETHI  < IERR 

0  U  t* 

IF  <  IERR  .HE .  0) 

0  067 

CALL  XTEST  < IERR 

0068 

IF  < IERR  .NE.  0) 

0069 

c 

CALL  PhUSR 

0  070 

NCRD  =  8 

0  071 

CALL  XWSET  >.  LDTU 

0  072 

IF  C  IERR  .NE.  0) 

0  073 

CALL  XTDRV  <  IERR 

0074 

IF  <  IERR  .NE .  0) 

0  075 

CALL  XETHI  < IERR 

0  076- 

IF  6  IEkR  .NE.  0) 

••)077 

ChLl  XETLG  < IERR 

Q?S 

IF  C  IERR  .NE.  0) 

3  07  9 

CALL  XTEST  K  IERR 

}j  uy  0 

IF  t,  IERR  .HE.  0) 

0  081 

c 

CALL  PAUSP 

■.•082 

NCRD  =  12 

0  OS  3 

call  xwset  •.  ldtu 

•1  OS  4 

IF  ■:  IERR  .NE.  0> 

OS:  5 

CALL  XTDRV  •.  IERR 

0  036 

IF  c  IERR  .  nE  .  0) 

0  03? 

CALL  XETLO  C IEPR 

003 

IF  >'  iERP  .NE.  O'* 

•j  Ox  9 

CALL  XTEST  1 IERR 

0  0  9  0 

IF  •'.IEPR  .NE.  0) 

)l.-9l 

o 

9  0*2 

cc 

0  093 

ccc 

NON  SET  ADAPTER  NO 

■‘1 0  5  4 

cc 

0  095 

•3  096 

f; 

CALL  PAUSE 

0  097 

NCRD  =  7 

0  093 

CALL  X.MSET  ‘.LDTU 

•3099 

IF  C  IEPR  .HE.  0> 

ti  i  0  0 

ChLl  XTDRV  »  IERR 

111  01 

TF  < IERR  .NE.  0) 

ol  02 

ChlL  XETlO  <  IERR 

01  03 

if  <  itr-p  .ne.  o  • 

0 1  04 

trtLL  X  1  E Lr’  i  * 

0  i  05 

IF  -  IERR  .  NF  .  u  ) 

•j  1  06 

»"■ 

01  0” 

cc 

0 !  03 

ccc 

NOW  SET  IT  HIGH  AGi 

01  09 

cc 

•3 1  1  0 

c 

0111 

c 

CALL  PAUSR 

0 1  1  2 

CALL  XETHI  < IERR 

Ol  1  3 

IF  f.  IERR  .NE.  0> 

01  1  4 

CALL  XTEST  IERR 

0 1  i  5 

IF  C  IERR  .HE.  0) 

3 1  1 6 

STOP 

0117 

9  0  0 

0  CONTINUE 

0113 

WRITE  <  1  ,  90 1 0  > I i 

,  MODE ,  I DR IV?,  IP I MS ) 
GO  TO  9000 

,  MODE,  IDRTOC,  I PINS) 
GO  TO  9000 
,  IL07 ,  IPINS) 

GO  Tu  9000 
,  IHITGG,  IPINS  > 

GO  TO  9000 

,  ISTAT,  MODE,  IPINS) 
GO  TO  9000 


,  I  ERR,  NSET,  NCRD) 
GO  TO  9000 


IPINS) 


,  MODE.  I DR I  VS, 
GO  TO  9000 
,  IHI8,  IPINS) 
GO  TO  9000 

r_os.  ipihs) 

GO  TO  9000 
,  ISThT,  MODE, 
GO  TO  9000 


,  ItPP.  NSET,  NCRD) 

GO  TO  9000 

,  MODE,  I0RV12,  IPINS) 
GO  TO  9000 
,  IL012,  IPINS) 

GO  TO  9000 

,  ISThT.  MODE.  IPINS) 
GO  TO  9000 
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lf  lr*ii  ilkili  »ii  JJn‘  fci  ‘lit,  ho  mn>  m  ttf&iuhi  ki .. 


•3010  FORMATC"  I  ERR  IS :  M2,  1 X,  3A2  > 
STOP 
END 

SUBROUTINE  PhUSR 
IMPLICIT  INTEGER  <U-Z> 

WRITE  < i , 1 0) 

l u  FORMAT< “  PhUSE  <CR>“ > 

PE AD  < 1  . 2  0  >IDUM 

20  FORMAT'-'.  13  > 

RETURN 

END 

END-f 
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APPENDIX  A  -  Software 
Section  A.  4  -  INIT/NOOP 


A.  4. 2  -  NOOP  LISTING 


NO  1>P 

i  =0 

0004  IS  OH  CRuOOiS  US INC 

0  0  ( 1 

FTN4 

,  L 

00  02 

PROGRAM  HOOP 

0  0  03 

rrrr 

cc  <:  c  c  c  ccc  ccc  c  ccccccc  c  c  c  c 

0  0  04 

■: 

0  0  05 

i— 

00  06 

l 

PROGRAM: 

HOOP 

0  0  07 

i_ 

0  0  OS 

i* 

PURPOSE : 

T  o  l  n 

c  0  0? 

c 

prior 

0  0  1  o 

c 

0  01  1 

L 

PROGRAMMER : 

Dh'v  1  D 

ft  0  1  2 

c 

0  0 1  3 

c 

DhTE  : 

JULY 

0  0  1  4 

f 

■J  v  -■ 

<'•  r«  j  - 

C c  c 

■-UCCC'.CCCCU.  ■.  U 

C  L  L  LC'C-l  '-1 

ij  ,j  i  r  c 

V ft  1  S  C  SUBROUTINE  TYPE  DESCRIPTION 

v  c. » /  c  - 


-oc  ? 

r 

EXEC 

System 

Used  to  execute  a  transfer  filed 

r 

execut 1 ng  th i s  progr am 

:•  ij  j  * 

1 

UIhIT 

System 

Used  to  initialize  the  pin  progr 

c 

also  DTS-70  Programmers  Referene 

l  ».*  cl 

iw 

XDLY 

System 

Used  tv  set  Delay  time  interval 

■'••.12  7 

r 

rela'.'S.  See  DTS-7  0  P.R.M  pg.  7- 

0  0  2S 

c 

7TREF 

System 

used  to  set  the  voltage  referene 

: .  f 1 2.  ° 

L 

See  DTS-7 u  P . R . M .  pg .7-6 

.' 7  0 

i‘. 

Xu  SET 

System 

Used  to  switch  reference  levels 

0i.*3 1 

c 

f'TS-70  P  .  R  .  M  .  pq  .  7-7 

0  032 

c 

XTORV 

S  y  s  t  e  m 

Used  to  enable  the  Driver  on  a  s 

0073 

f 

See  P.R.M,  pg.  7-1 2 

ji. 3  t 

c 

IsTCMP 

S*  <stem 

Used  to  enable  the  Comparator  on 

0  035 

c 

See  P.R.M.  pg .  7-13 

*?  0  36 

c 

XGTHI 

System 

Used  to  define  pins  desired  to  b 

pg  7-26 

err Comparatoi 


Oft  3  7  C 

0  0  3?  c  XETLO 
003?  C 

004  0  C  X  TEST 
0  04  i  C 

0042  C  K’E-ERN 
0  043  L 


System  Used  to  define  pin?  desired  to  be  set  hi  .  See  DTS-70 
P  .  R .  M  .  p-g  .  7-14 

System  Used  to  define  pins  desired  to  he  set  lo.  See  DTS-70 
P.P.W.  pg,  7-15 

System  Used  to  actually  do  the  digital  test  based  on  pin 
st sti  array  See  P.R.M,  pg .  7-16 
System  Used  to  report  any  and  all  subroutine  errors.  See 
D  T  S - 7 0  Pr  og .  Ref.  Man 


ft  04J  C 

■j 04  5  CC  CC  CC C'CCC  C C C C CCCC C C  CC'. C  0 :  CCS ! 
4  046  C 

ij  4  ,•  I_ 

0  046  •:  ARRAYS  USED  IN  THIS  PROGRAM: 

0u4?  C 


r  •"  r  :*  r  r r  r  r C C  C CC CCCCCCC  CC  C Cl  C  l  L  C CC CCC  CCCCC£ 


0  050 

c 

IDRIV4 

V  1  0  .) 

Hr  ray 

1 1*. 

hold 

pin  number',  s  >  on  D/C  card 

no , 

4 

ft  051 

i. 

IDEIV5 

<?> 

Ar  r  ay 

to 

hold 

pin  number  C  s  >  on  D/C  card 

no . 

5 

0052 

c 

IERR 

<4  ' 

Gr  r  or 

P  ar 

a  me  t  < 

sr  holding  array 

0053 

c 

IDPIV6 

C  9  > 

Hr  r  ay 

to 

hold 

p. ir  number! s ;  on  D/C  card 

no . 

t* 

0054 

C 

IDPIV7 

<4) 

Arc  ay 

to 

held 

pin  number  <  s  >  on  D/C  card 

no . 

7 

”  0055 

c 

IDRIV8 

<4  1 

Hrray 

to 

no  id 

pm  number  <  3  >  on  D/C  card 

no . 

3 

0056 

c 

IDRIVT 

<2> 

Hr  r  ay 

to 

hold 

pm  number  that  is  to  be 

toggle' 

0057 

c 

IPINS 

1  5  0  > 

Pin  st 

ate  arr 

ay  r-eded  to  do  digital  te 

sts 

00:3? 

c 

IHI4 

<  4  > 

Hrray 

to 

no  i  d 

pm  numbers  on  D/C  card  4 

to 

se 

0059 

c 

IHI5 

<  7  ) 

Hr  r  ay 

to  hold  pin  numbers  on  D/C  card  5  to  set 

hi 

0060 

c 

I  LOS 

1 2  > 

Array 

to  ho  d  pin  number  on  D/C  card  5  to  set 

lo 

i/O  6 1 

c 

IHIS 

<9  ) 

Array 

to  hold  pin  numbers  on  C/C  card  6  to  set 

h  i 

0062 

c 

IHI7 

<  3  > 

Array 

to  hold  pin  numbers  on  D/C  card  7  to  set 

hi 

0063 

c 

IL07 

<2> 

Ar  ray 

to  hold  pin  numbers  on  D/C  card  7  to  set 

1  o 

0064 

c 

i H  IS 

t  3  ) 

Hr  ray 

to  hold  pin  numbers  on  D/C  card  8  to  set 

hi 

i.i  065 

r 

I  LOS 

■'  2  > 

Hrray 

to  hold  pin  numbers  on  D/C  card  S  to  set 

lo 

0066 

I H I TOG 

t  2  > 

Array 

to  hold  pin  number  to  toggle  hi 

0  067 

c 

I LOTOG 

•:  2  > 

Array 

to  hold  pin  number  to  toggle  lo 

0068 

c 

IBUF 

■'  5  > 

Hr  r  ay 

holds  name  of  tr ansf er  file  to  execute 

0069 

c 

I  NhM 

3  ; 

Hrray 

holds  name  of  system  prog,  to  execute  f.FMGR> 

007  0 

c 

0071 

r 

0072 

r 

VhPIhBLES  USED 

IN  THI 

9  PROGRAM: 

0  0  7  3 

0  0  7  4 

C 

c 

lDT'J 

Holds 

the  logical  unit  no.  for  the  Digital  Tes 

t  Unit 

0078 

c 

MODE 

De^'ir, 

es  the  mode  of  current  test  <  See  DT3-7C*  PRM  sec 

0  t*  £« 

p 

NCRD 

holds 

the  D/C  card  no.  of  C3rd  currently  being 

set 

■«  •  —  “• 

“ 

nset 

Holds 

the  reference  set  number  of  current  set 

.1 r. 

p 

TIME 

Ho  1  ds 

the  D/C  relay  delay  time  in  milliseconds 

!;  i., ,  "* 

c 

■.'Oh 

Def  in 

es  the  voltage  comparator  High 

Defines  the  ••••oitaae  comparator  Lo 

»  ! 

1 

VDH 

Def  in 

es  the  voltage  driver  High 

- 

VOL 

Def  m 

es  the  voltage  driver  Lo 

*i  j  A  £ 

■  S4 

*  *i  •"•T 

t. 

c 

c 

GLOBAL 

INITIAL 

I3ATI0N 

yuBc 


s.  i  i 


DiMENSION  1  DR I V4  (1u^  I0RIV5  •:  S  9 ,  IDRIV6  <$>,  li'RIV?  •;  4  > 

D  I  MENS  I  uH  I  OR  I  VS  4  • ,  I  L>K  I VT  <  2  > ,  I H I T OG  <  2  ) ,  I LOTOG  <  2 
DIMENSION  I  PINS  Cl50>,  IEftR  ‘.4).  IHI4  <2>.  IHI5  t7>,  1HI6  <9> 
&  I  MENS  I  OH  IHI 7  <3*.  JHI8  <  3  >  .  IL04  -I9>,  IL05  <2>,  IL08  ■;  2  > 

IhM  <;3>.  IL07  <2> 


•  •,/  < 

-•  -  i 

DIMEN 

SION  IBUF  <5/. 

:* 

DhTA 

IDRIV4/9.46..47 

'.•09  3 

DhTA 

IDRIV5/7 , 64 , 66 

0  0  94 

data 

I  DR.  1 V  6/S  ,76,73 

j  ft *5 

oath 

IDRIV7/3, 92,94 

i'  096 

OaTh 

IDR1V8/3, 106,1 

•j  ij  ‘Z;  “ 

DhTA 

IDRIVT/i , 1 05/ 

v  098 

DATh 

IHITOG/1 , 1 05/ 

00*?*? 

oath 

I LOTOG/ 1 , 1 05/ 

01  0  0 

Dhth 

I H 14/1 ,46/ 

0  5  0 1 

DATA 

I HI 5/6 , 64 , 66, 6 

O'  02 

DhTA 

IHI 6/8, 76,78,8 

0 i  03 

DATA 

IHI 7/2, 92. 94/ 

0 1  04 

DHTH 

I HIS/2,  106,1  OS 

1: 1  05 

DhTh 

IL04/S .47.48.5 

r  i  u* 

DATA 

IL05/1 ,62/ 

v  1  07 

DATh 

IL07/1 , 1 04/ 

0 1  08 

DATA 

IL03/1 , 1 07/ 

0 1  09 

LDTU 

=  30 

0 1 1 0 

MODE 

=  1 

01  ii 

I  CODE 

=  23 

*0, 72..  74/ 


53,6  0/ 


j  i  i  2 
Oi  i  3 
0 1  t  4 
0  i  i  3 

v  i  io 

0117 
01  1  S 


r 

C  C 
CCC 

cc 

c 


The  following  cod-..  ^cuts?  FMGR  which  rune  the  transfer  file.  POWON 


=  2H:T 
=  2HR, 


IBUF  <  1  !> 
IBUF  <  2 ') 
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It  i 

S  4 


m. 


Ol  1 9 

IBUF  •;  3  ;  =  2HP0 

u  1  2  0 

IBUF  <4)  =  2HW0 

0121 

IBUF  <  5  )  =  2HN 

0  5  22 

INhM  < 1 >  =  2HFM 

0123 

IMAM  <  2  >  =  2HGR 

Oi  24 

I HAM  <3>  =  2H 

u  1  25 

CALL  EXEC  <  1  CODE ,  I  HAM ,  0 ,  0 ,  0 ,  0 , 

0 1 2  c. 

c 

0 1  27 

f  r 

0 1  28 

ccc 

How  initialize  the  DTD  software 

01  29 

r  r- 

0 1  3  0 

c 

0131 

CALL  XIHIT  •;  lDTU,  I  ERR..  MODE, 

!l  1  32 

IF  < I ERR  -HE.  0)  GO  TO  9000 

:■!  33 

c 

0134 

cc 

Ol  35 

c  c  c 

How  define  our  delay  time  as  10 

cc 

!*  1  3  • 

»  jg 

1.. 

TIME  =  IE-2 

:i  38 

ChlL  XDlY  •.  _otu,  i err,  tihe> 

y  1 4  0 

IF  Cl ERR  .HE.  0»  GO  TO  9000 

jl  4  1 

c 

;  1  4  2 

j  _  l” 

>!  l  *t  2* 

c  c  c 

Now  initialize  our  .o It age  refer 

J 1  44 

cc 

0145 

L 

0 1  4  8 

VDH  =  5E0 

014? 

VDL  ~  0E0 

■•143 

VCH  =  4£  0 

>;  a*w 

VCL  =  1 E  0 

j  l  5  0 

HSET  =  I 

‘J  1  “ 

CALL  XTREF  sLDTu,  I FRF ,  M9ET, 

0152 

I c  v I ERR  .HE.  0)  GO  TO  9  00  0 

0 1  53 

HCRD  =  4 

0 1  54 

l 

0155 

cc 

0 1  5* 

ccc 

And  then  switch  them  to  our  curr 

u  1  5? 

cc 

0 1  53 

c 

0  1  58 

•'ALL  XWSET  '  LOTH,  I ERF  ,  MEET . 

0 1  8  0 

IF  '■  IERR  .HE  0  '>  GO  TO  900  0 

■ j  '  6  1 

Ol  82 

cc 

1  »£.  3 

ccc 

How  enable  the  driver  on  card  4 

0 ' 6*4 

cc 

0 1  85 

c 

0  i  88 

Call  aTdrv  <iep.R,  mode,,  idpiv4 

018? 

IF  •:  IERR  .ME.  0>  GO  TO  900  0 

0168 

c 

1  69 

cc 

0 1  7  0 

1  "?  1 

ccc 

and  set  the  c-ins  on  that  card  to 

v  1  »  I 

0 1  72 

c 

ft  1  73 

CALL  X.ETHI  <  IERR,  IHI4,  IP1NS9 

0 1  7  4 

IF  < IERR  .nE.  0  ■  GO  TO  900  0 

y  1  75 

CALL  XETLO  •  IERR.  IL04,  I F i H3 > 

0176 

IF  < IERR  .HE.  0  >  GO  TO  9  00  0 

0177 

r. 

0 1  78 

CC 

— 

_ 

1,  VCh ,  VCL> 


set- 


stater 


. . . . I . . 


05  79 
0130 
0131 
0 i 32 
0 1 33 
0 1  34 
0i85 

;  Oi, 

0137 
01  88 
0189 
0 1  '9  0 
0 1  9 1 
0 92 
0197 
cl  94 
■'!  1  95 

V  7  9A 

0197 
;  •?§ 
01  99 
0200 
■  2  01 
02  02 


and  now  perform  the  actual  setting  of  those  pins 


CALL  XTEST  < IERR,  ISTAT,  MODt,  IPINS> 
IF  < IERR  .NE.  0)  GO  TO  9000 


CCC  now  switch  to  card  no.  7  and  repeat  the  process 
CC 


NC  RE¬ 
CALL 
IF  C 
CALL 
IF  •; 
CALL 
IF  < 
CALL 
IF  • 
CALL 
IF 


XTREF  CLDTU.  IERR,  MSET,  VDH ,  VDL ,  VCH,  VCl > 
IERR  .HE.  0)  GO  TO  9000 
XWSET  CLDTU,  IERR,  NSET ,  NCRD > 

IERR  .HE.  0 >  GO  TO  9000 
XTDRV  t  IERR,  MODE.  IDRIVT,  JPIHS  > 

IERR  .HE.  0)  GO  TO  9000 
XETLO  < IERR,  1LOTOG,  IPIHS.) 

IERR  .HE.  0>  GO  TO  9000 
XTEST  (TERR.  ISTAT,  MODE,  I  PI  NS.) 

IERR  .HE.  0  >  GO  TO  9000 


now  card  c-  is  up  to  b a .. 


: » .l*  i.t  3 

•"  r 

12-:-4 

c 

!  ^  \ 

MCRD  =  5 

'  2  08 

CALL  XTPEF  -.LDTU,  IERR. 

'■L'  07 

IF  {.  IEPR  .  HE  .  0  >  GO  TO 

■  ■  2  >.•  3 

ChLL  X "I SET  -1  LDTU,  I ERR  . 

■2  09 

IF  ..  IERR  ,  n£ .  0'  GO  TO 

2  ’.  ii 

CALL  XTDRV  ( IERR .  MODE 

i  I 

IF  v IERR  .HE.  0>  GO  TO 

■  2l2 

CALL  XETH I  ( IERR,  1 H I 5 . 

;2 1  3 

IF  < IERR  -HE.  0>  GO  TO 

.2!  4 

CALL  HETlG  ‘1  IERR,  Ilu5. 

7. ,  cr 

IF  (  IERR  HE  0  >  GO  TO 

.121  c- 

CALL  XTEST  IERR.  ISThT 

021  7 

IF  ‘.IERR  ME.  0  ■•  GO  TO 

02 1  8 

c 

:  j  2  1  9 

CC 

0220 

CCC 

followed  bv  caro  8 

•.-221 

c 

0223 

WORD  =  6 

0224 

ChLL  XTREF  < LDTU,  IERR. 

0225 

IF  (IERR  HE.  0)  GO  TO 

0228 

CALL  XWSET  -LDTU.  IERR . 

1 : 

IF  -.IERR  HE.  0.<  GO  TO 

CALL  XTDRV  ■  IERR,  MADE. 

0223 

IF  ..IERR  .HE.  s«  Hi  GO  TO 

02  "30 

call  xethi  <ierr,  ih:g. 

0231 

IF  <  IERR  .HE.  O'-  GO  Tij 

;  532 

Call  XTEST  .  IERR,  1SThT 

0233 

IF  (IERR  .HE.  0,-  GO  TO 

!.*c‘34 

^  7C 

CC 

0236 

CCC 

then  1 1-  is  caro  s  turn 

;'*237 

CC 

0233 

c 

A -45 


0239  NCRD  =  7 

0240  CALL  XTREF  <LDT‘J,  I  ERR,  NSET,  VDH,  VOL ,  VCH,  VCL  > 

0241  IF  UERR  ,  HE  .  0.)  GO  TO  9000 

0242  CALL  XtJSET  <  LDTU,  I  ERR NSET,  MCRD) 

0243  IF  C I ERR  .ME.  0>  GO  TO  9000 

i.i244  CALL  XTDRV  UERR,  MODE,  IDRIV7,  IPINS  > 

0245  IF  *.  IERR  .HE,  0  x  GO  TO  yODG 

02 40  CALL  XETHI  < IEPR,  IHI7,  IPINS) 

0247  IF  <IERR  .ME.  0>  GO  TO  9000 

0240  CALL  XTEST  UERR,  ISTAT,  MODE,  IPINS) 

0249  IF  UERR  .ME.  0)  GO  TO  9  00  0 

025  0  C 
0251  CC 

0252  CCC  tnen  3  comes. . , 

0 25  3  C  C 
0254  C 

'.255  MCRD  »  S 


0256 

ChLl 

XTREF  ‘.LDTU. 

IERR, 

NSET ,  VDH,  VDL, 

'■'257 

IF  '- 

IERR  .ME.  ux 

GO  TO 

9  00  0 

1)258 

CALL 

XMSET  '.LDTU, 

IERR. 

N’oET,  MCRD) 

0259 

IF  C 

IERR  , ME .  0> 

GO  TO 

9  00  0 

•J.-26  0 

Call 

XTDRV  CIERR. 

MODE  . 

I DPI VS,  IPINS  > 

026 1 

IF  ) 

IERR  .ME,  0> 

GO  TO 

9  0  0  0 

0  r  *  6  2 

CALL 

XFTHI  UERR, 

TI1I8. 

IP  IMS  ) 

IF  C 

IERR  .ME.  O' 

GO  TO 

9  0  0  0 

0264 

CALL 

XETLO  CIERR. 

11  08. 

IP  CMS) 

"■42  0  0 

if  •; 

IERR  .ME.  Ox 

6  0  T  0 

9  0  0  ft 

*.*  to  6  b 

CriLL 

XTFST  UERR. 

ISTHT 

,  MODE,  IP  IMS.) 

. : '  r 

IF  < 

IERR  .ME.  Ox 

GO  TO 

9  0  0  (i 

'"260  C 
■:.2G9  o: 

1 1 2 7 0  CCC  HIM'!  TOGGLE  FIN  105 
0271  CC 


0272  C 
02.73 

MCRD 

0274 

CALL 

XTREF  ',  LDTu  . 

IERP.  NSET .  VDH,  VDL, 

0275 

IF  C 

IERR  .ME,  0) 

GO  ro  9000 

0  2  7  © 

ChLL 

XMSET  C lDTU, 

IERR,  NSET,  MCRD) 

0277 

IF  '„ 

IERP  ,ME.  Ux 

GO  TO  9000 

0273 

CALL 

XTDRV  CIERR. 

MODE,  IDF'IVT,  IP  IMS) 

0279 

IF  UERR  .HE.  0) 

GO  TO  9000 

028  0 

CALL 

XETLO  -UERR. 

r LOTOS.  IPINS) 

0281 

IF  * 

IERP  .ME.  OX 

GO  FO  9000 

0232 

CALL 

XTEST  CIERR. 

ISTaT,  MODE,  IPINS) 

0283 

0234  C 

IF  C 

IERR  .ME,  0) 

GO  ro  9000 

0285  CC 

02. SC  CCC  f.'JW  SET  IT  HIGH  PGwIM 
U287  CC 
0288  C 

0289  CmLL  XTREF  •.  lDTU  IERR,  NSET,  VDH.  VDL,  VCH,  VCL) 

0290  IF  UERR  .ME.  O’)  GO  FO  9  00  0 

0291  CALL  UNSET  •;  LDTU,  IEPR,  NSET.  NCRD  > 

0292  IF  CIERR  . HE .  0)  GO  TO  9000 

0293  CALL  XTDRV  CIERR  MODE.  IDRIVT,  IPINS x 

0294  IF  UERR  .ME,  0  >  GO  TO  9  00  0 

0295  call  xethi  cierp.  i  hi  tog,  ipihs  x 

0296  IF  CIERR  .ME.  U  >  GO  TO  9  00u 

0297  CALL  XTEST  UERR,  ISThT.  MODE,  IPINS) 

0298  IF  C IERR  .ME.  0 >  GO  T 9000 
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■***'%- 


:  ' 

ti 


w 

!  0293 

C 

WRITE  <1,10> 

si 

g. 

0300 

1  u 

FORNAT< "  FINISHED  TOGGLING  PIN  105",/,"  PAUSING  HERE 

8 

1  0301 

C 

READ  <1,20  >  I  DUMMY 

S 

03  02 

20 

FORMATS  13 > 

p-' 

p 

03  03 

STOP 

1 

0304 
03  05 
03  06 
03  07 

9  0  0  0 

t” 

CONTINUE 

1 

cc 

ccc 

THIS  SECTION  HANDLES  ERRORS  ON  DTS70  SUBROUTINE  CALLS . 

B 

03  OS 

cc 

P 

03  09 

c 

L  ,i 

031  0 

WRITE  U  ,  9 Ml  0  HERR 

If 

031  1 

9  010 

FORMA T< "  1ERR  IS:  " , 12, 1 X, 3A2 ^ 

p 

03 1  2 

CALL  XSERN  \  LDTU ,  IERR‘,  i  >  > 

0313 

STOP 

i 

03  1  4 

END 

1 

.1315 

END-1 

SECTION  A.  5 


DFISML 


1.  Support  Maintenance  SCHEMA  .... 

2.  Support  Maintenance  Report  SMRPT 


APPENDIX  A  -  Software 
Section  A.  5  —  DFISML 

A. 5.1  -  SUPPORT  MAINTENANCE  SCHEMA 


DFI  DTS-70  SUPPORT  MAINTENANCE 

SCHEMA 

$  CONTROLLABLE,  FIELD; 


Begin  Data  Base:DFISML:10;19; 
((Security  Information)) 
LEVELS: 

1  Leader 
3  Senior 
5  Admin 
((  Item  Definition)) 

ITEMS: 

PNUMB,  xl2  (1,3); 

SANUM,  xl2  (1,3); 

SAC  TV,  x20  (1,3); 


STIME,  R2  (1,3); 
FTIME,  R2  (1,3); 
ELTIME,  R2  (3,5); 
LCHARG,  xlO  (3,5); 
MCHARG,  xlO  (3,5); 
DATE  ,  xl2  (1,3); 
((Set  Definition)) 

SETS: 


((Image  Data  Base  NAMR)) 

({Lowest  Level  and  Code  Pass  Word)) 

((  Highest  Level  and  Code  Pass  Word)) 

((Part  Number)) 

((Serial  or  Assembly  Number)) 
((Support  Activity)) 

((Software-Update;  Generation)) 
((Hardware- Replace;  Repair)) 

((  Support  Start  Time)) 

((  Support  Finish  Time)) 

((Support  Elapsed  Time)) 

((Labor  $  Charge)) 

((Material  $  Charge)) 
((Support-Maintenance  Date)) 


NAME:  PART;  :  19,  A;  ((Part  Number  File,  Automatic  Master)) 

ENTRY:  PNUMB  (1); 

CAPACITY:  23; 

NAME:  DATEF:  :  19,  A;  ((Service  Date  File,  Automatic  Master)) 

ENTRY:  DATE  (1); 

CAPACITY:  67  ; 

NAME:  SMFILE  ;  :  19,  D;  ((Support-Maint.  Detail  File)) 

ENTRY:  PNUMB  (PART),  SANUM,  SACTV,  STIME,  FTIME,  ELTIME,  LCHARG, 
MCHARG,  DATE  (DATEF); 

CAPACITY:  161  ; 

END. 


APPENDIX  A  -  Software 
Section  A.  5  —  DFE3ML 

A.  5. 2  -  SUPPORT  MAINTENANCE  REPORT  SMRPT 

DFI  DTS-70  SUPPORT  MAINTENANCE 

QUERY- REPORT 

DFISM  L:10 :19 ,  ADMIN; 

Report  NAME  =  SMRPT  ((  SM  Report  Print  Procedure  File)) 

HI,  "DFI  Support  Maintenance  Report",  81; 

HI,  "Page",  107; 

HI,  Page  No,  111; 

H2,  "DTS-70  System",  73; 

H3,  "HAC - Org- 12-42-50 - ",  82,  SPACE  A2,  El; 

H4,  " - Part - Serial/Asmby - ,  Support-Activity- 

- Labor - Material - Date — ",  119; 

H5,  " - Number - Number - Time-Hr. 

- $ - $ - ",  119,  Space  A2 

S2,  Date; 

SI,  PNUMB; 

Dl,  Part,  26; 

Dl,  SANUM,  42; 

Dl,  SACTV,  66; 

Dl,  ELTIME,  79; 

Dl,  LCHARG,  93; 

Dl,  MCHARG,  107; 

Dl,  DATE,  119; 

G2,  DATE,  26,  El; 

Gl,  PNUMB,  26; 

T2,  "Date  _  Sub-Totals",  66; 

T2,  ELTIME,  79;  Add; 

T2,  LCHARG,  93,  Add; 

T2,  MCHARG,  107,  Space  B2,  Add; 

TF,  "Report  Totals",  66; 

TF,  ELTIME,  79,  Add; 

TF,  LCHARG,  93,  Add; 

TF,  MCHARG,  107,  Space  B2,  Add; 

El,  "XX/XX/XX"; 

END;  "XX_XXX_XXXX_"; 


Suppo  rt 
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SECTION  B.  1 


PN  1635972  CIRCUIT  BOARD  MODEL 


1.  8  Channel,  4  Port  Programmable  Peripheral  Interface,  8255  .  B-l 

2.  4-Bit  Bi-Directional  Bus  Driver,  8216 .  B-2 

3.  4-Bit  Bi-Directional  Bus  Driver,  8216A .  B-3 

4.  System  Controller  and  Bus  Driver,  8228  . B-4 


i 
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APPENDIX  B  -  Schematics 

Section  B.  1  -  PN  1635972  Circuit  Board  Model 

B.  1.2  -  4  BIT  BI-DIRECTIONAL  BUS  DRIVER,  8216 


APPENDIX  B  -  Schematics 

Section  B.  1  -  PN  1635972  Circuit  Board  Model 

B.l.3-4  BIT  BI-DIRECTIONAL  BUS  DRIVER,  8216A 


FICTICIOUS  PINS:  103.  i06.  110,  113 


APPENDIX  B  -  Schematics 

Section  B.  1  —  PN  1G35972  Circuit  Board  Model 

B.  1.4  -  SYSTEM  CONTROLLER  AND  BUS  DRIVER,  8228 


BUM.N 


APPENDIX  B  -  Schematics 

Section  B.  2  -  PN  1635972  Circuit  Board  Test  Adapter 
B.  2. 1  -  8080  A/B  UMBILICAL  CABLE;  PART  1  OF  6 
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1635972  D/PCB 


APPENDIX  B  —  Schematics 

Section  B.2  -  PN1635972  Circuit  Board  Test  Adapter 

B. 2.2  -  8  Bit  Data  Bus,  Buffers,  Pull  Up  and  LED  Indicators;  Part  2  of  6 


APPENDIX  B  —  Schematics 

Section  B.2  -  PN  1635972  Circuit  Board  Test  Adapter 

B.  2. 3  -  16  Bit  Address  Bus,  SACMPR-INIT  Initialization;  Part  3  of  6 


16  BIT  ADDRESS  BUS,  PULL-UP  AND  LED  INDICATORS 


SAP 


ADAPT  L  H 


APPENDIX  IJ  -  Schematics 

Section  B.  2  -  PN  1635972  Circuit  Board  Test  Adapter 

B.  2.  5  -  8255  PPI  I/O  BUFFER  AND  PULL  UP;  PART  5  OF  6 


APPENDIX  B  — Schematics 

Section  B.2  -  PN  1635972  Circuit  Board  Test  Adapter 
B.  2. 7  -  TEST  ADAPTER  PARTS  LIST 


SECTION  B.  3 


pn  1646178  emcurr  board  model 


1.  AM2901  Model  .  B-12 

2.  AM2901,  RAM  Model  .  B-13 

3.  AM2901,  ALU  Model .  B-14 

4.  AM2901,  Microinstruction  Decoder .  B-15 


APPENDIX  B  —  Schematics 

Section  B.  3  -  PN  1646178  Circuit  Board  Model 

B.  3. 1  -  AM2901  MODEL 
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APPENDIX  B  —  Schematics 

Section  B.  3  —  PN  1646178  Circuit  Board  Model 

B.  3.  2  -  AM2901,  RAM  MODEL 
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SECTION  B.  4 


PN  1646178  CIRCUIT  BOARD  TEST  ADAPTER 


1.  Initialization  Circuit .  B-16 

2.  Wire  List,  Adapter,  Part  1 . B-17 

3.  Wire  List,  Adapter,  Part  2 .  B-18 

4.  Layout  and  Inter  Connections,  Adapter  .  B-19 
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APPENDIX  B  -  Schematics 

Section  B.  4  —  PN  1646178  Circuit  Board  Test  Adapter 
B.  4. 1  -  INITIALIZATION  CIRCUIT 
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APPENDIX  B  -  Schematics 

Section  B.  4  —  PN  1646178  Circuit  Board  Test  Adapter 
B.  4.  3  -  WIRE  LIST,  ADAPTER,  PART  2 


APPENDIX  B  —  Schematics 

Section  B.4  -  PN  1646178  Circuit  Board  Test  Adapter 
B.4.4  —  LAYOUT  AND  INTER  CONNECTIONS.  ADAPTER 
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APPENDIX  C  _  REVISIONS 


SECTION  C.l 

REVISIONS  TO  DTS-70  IMPLEMENTATION  PLAN 

DTS-70  Implementation  Plan  CDRL  A006 . 

21  July  1980,  Revisions 


APPENDIX  C  -  Revisions 

Section  1  -  Revisions  to  DTS  70  Implementation  Plan 

C. 1 . 1  DTS  70  IMPLEMENTATION  PLAN  CDRL  A006,  21  JULY  1980,  REVISIONS 

REVISIONS 

Graph  II,  page  13: 

The  data  point  must  be  revised  for  the  MC  8080  A/B  microprocessor  using 
Signature  Analysis  with  the  DTS-70  system  at  Hughes  Fullerton. 

Later  information  revealed  that  test  program  time  required  through  hardware 
verification  increased.  In  addition  a  correction  in  the  number  of  ICs  for  the 
1635972  D/PCB  is  required  which  includes  the  MC  8080  A/B  microprocessor. 
Therefore  the  data  point  changes  as  follows: 

Item  Was  Is 

MC  8080  A/B  38  IC  28  IC 

Hughes  Fullerton  14  Man  Weeks  23  Man  Weeks 

Page  14  Paragraph  B: 

General  Dynamics  DTS-70;  8085 

Was:  "In  the  GD  DTS-70  data  point  case,  the  8085  was  modeled  directly 

with  logic  primitives. " 

Is:  "In  the  GD  DTS-70  data  point  case,  the  8085  was  functionally 

modeled. " 

This  information  was  received  during  the  Industry  Demonstration 
from  a  representative  of  General  Dynamics,  Pomona,  Ca. 


REVISIONS 

Page  14  Paragraph  C: 

HAC  (DFI)  DTS-70;  8080 

Was:  "Using  the  test  technique  outlined  total  programming  time  for  this  PCB 

on  the  DTS-70  required  14  man  weeks.  For  the  same  PCB  (38  ICs 
including  the  8080),  the  GR-195  programming  time  is  estimated  at 
19  man  weeks  or  36  percent  longer. " 

Is:  "Using  the  test  technique  outlined  total  programming  time  for  this 

PCB  on  the  DTS-70  required  23  man  weeks.  Relative  to  the  GD  8085 
data  point,  it  is  observed  that  the  Signature  Analysis  functional  test  of 
the  8080  vs.  functional  modeling  of  the  8085  achieves  a  reduction  in  test 
program  time  in  the  ratio  of  23/45  or  very  nearly  1:2. 

Page  15  Paragraph  E: 

DTS-70;  2901 

Subparagraph  3 

Was:  ' .  substantial  reduction - fiinctionally  tested  instead. " 

Is:  "An  8080  type  LSI  device  when  functionally  tested  using  Signature 

Analysis  can  substantially  reduce  test  programming  time  by  a  ratio 
approaching  1:2  as  compared  te  a  functionally  modeled  8085  test 
program. " 
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